批量修改所有表格
1、 先把开发工具菜单调出来,开发工具菜单默认情况下不在WORD中菜单栏显示,需要自己调。
文件 > 选项 > 自定义功能区 > 勾选开发工具
2、利用宏选择所有表格。首先,我们进入「开发工具」-「Visual Basic」,选择 “插入” > “模块”,将下列代码复制进去(该宏的主要作用是,可以让你一次选中文档中所有的表格)。
3、然后,在「宏」中点击「运行」。
复制下列代码:
Sub 批量修改表格()
Dim tempTable As Table
Application.ScreenUpdating = False
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护,此时不能选中多个表格!"
Exit Sub
End If
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
4、修改样式。运行我们刚刚录入进去的宏,即可一次选中文档中所有表格,此时,我们在「设计」-「表格样式」-「修改表格样式」,在这里面我们可以随意的设置表格中内容的格式样式。
5、表格属性。不仅如此,我们还能够通过「右键」-「表格属性」,进入后,我们可以对其中单元格的高度、宽度等再次统一设置。