ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Word > 如何运用VBA为Word文档中某一表格的所有空白单元格设置统一的字体字号呢?

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

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

免责声明

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

评论列表
sitemap