如何在Word中批量修改表格的格式

1）建立宏来选择文档中的全部表格：「开发工具」-「Visual Basic」将下列代码复制进去。然后，在「宏」中点击「运行」，就可以选中文档中的所有表格了。

代码：

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

2）修改表格属性。通过上面的宏选中表格后，还可以通过「右键」-「表格属性」，对表格中的单元格的高度、宽度等再次统一设置。

3）修改样式：运行刚才录入进去的宏，即可一次选中文档中所有表格，然后，可以在「设计」-「表格样式」-「修改表格样式」。

转载请注明：范的资源库 » 如何在Word中批量修改表格的格式