如何运用VBA为Word文档中某一表格的所有空白单元格设置统一的字体字号呢？

作者：绿色风分类：时间：2022-08-18 浏览：206

楼主 0Mouse	Q：如何运用VBA为Word文档中某一表格的所有空白单元格设置统一的字体字号呢？示例：为附件文档中表格内的所有空白单元格设置以下统一格式：中文字体：仿宋_GB2312 西文字体：Calibri 字号：小四 A：代码如下： Sub 为某一表格的所有空白单元格设置统一的字体字号() Dim ocell As Cell For Each ocell In ActiveDocument.Tables(1).Range.Cells If ocell.Range.Text = Chr(13) & Chr(7) Then '判断单元格是否为空 ocell.Range.Select '选择单元格的内容。因为单元格为空，所以这里也可以直接选择整个单元格，即ocell.Select。 With Selection.Font .NameFarEast = "仿宋_GB2312" .NameAscii = "Calibri" .NameOther = "Calibri" .Size = 12 End With End If Next End Sub 附件：为Word文档中某一表格的所有空白单元格设置统一的字体字号.rar
2楼 eliane_lei	进来学习，谢谢分享
3楼 0Mouse	Select多余 Sub 为插入点所在表格的所有空白单元格设置统一的字体字号() Dim oCell As Cell '声明单元格类型变量 For Each oCell In Selection.Tables(1).Range.Cells '循环插入点所在表格的每一个单元格 If oCell.Range.Text = Chr(13) & Chr(7) Then '判断单元格是否为空 With oCell.Range.Font '设置单元格区域的字体 .NameFarEast = "仿宋_GB2312" '中文字体 .NameAscii = "Calibri" '西文字体 .NameOther = "Calibri" '西文字体 .Size = 12 '字号：四号 End With End If Next End Sub

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表