既然是表格,可以使用行列定位,上面的代码测试通过,里面的Array(Array(1, 3), Array(1, 5))表示需要设置格式的行、列组,代码的文本为:
Option Explicit
Sub X()
Dim t
For Each t In Array(Array(1, 3), Array(1, 5))
ActiveDocument.Tables(1).Cell(t(0), t(1)).Select
Selection.Font.Size = 10.5
Next t
End Sub
另外,几百个文件可以放在一个文件夹下,使用dir+while循环扫描,依次打开、处理、保存、关闭。
可以百度以下两个关键词
VBA WORD历遍文件夹
VBA WORD表格定位
PS:定位的资料网页链接
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。