批量修改Word内表格格式-字体、字号
最近写报告写得很频繁,一篇报告里面带着各种各样的表格,这些表格我一般是先在Excel里做好,再一个一个复制到Word里。
可是复制到Word里之后,经常出现表格的字体、字号跟要求的不一致。
我比较懒,懒的一个表格一个表格的调整:一个表格一个表格调整太麻烦了,有过在Word里大量调整表格的人都知道,那种感觉,啧啧。
所以,得用个办法,来批量调整。
一、启用“终极神器”
- 01
我们用到Word VBA,所有,首先得启用这个功能。具体启用步骤看下面的经验。
二、进入编程界面
- 01
点击“开发工具”,点击“Visual Basic”
- 02
来,看图操作:单击右键-插入(邪恶的词汇啊)-模块~~
- 03
再来给我们的模块起个名字~~
三、编辑代码
- 01
代码我已经编辑好了,直接复制粘贴就行,下面是代码
- 02
Sub 批量调整表格字体字号() For i = 1 To ActiveDocument.Tables.Count 'For循环,从第一个表到最后一个表循环;Tables.Count文档内的表格数量 ActiveDocument.Tables(i).Select '从第一个表格开始逐个选中 Selection.Font.Name = "宋体" '设置选中表格的字体 Selection.Font.Size = 14 '是指选中表格的字号 Next End Sub
- 03
把第二步的代码放到编辑器里,就是这个样子~
- 04
再调整一下编辑器的大小,好显示出我们的文档内容来
四、运行代码
- 01
接下来就是见证奇迹的时候了~~ 点击绿色的小三角:运行子程序/用户窗体。快捷键是F5
- 02
我们点一下,然后~~~ 所有表格的所有字体、字号,一瞬间全部调整完成~~ 绝对秒改~~批量秒改~~
- 03
需要注意的地方,上面点击绿色的小三角,正常情况下会直接运行,不过有的时候会弹出另外一个窗口,这个时候,只需要点击一下“运行”就行了。