一次修改文档中的表格样式
一次修改文档中所有表格样式
为美化文档，我们通常会将文档中的所有表格格式样式统一，如何快速快速搞定，这里小编教大家一招批量设置表格样式的技巧。
第一步：直接按Alt + F11键，打开VBA代码窗口。
第二步：在打开的VBA窗口中，右击Thisdocument，在弹出的菜单中选择“插入”-“模块”选项。
第三步：此时，会打开模块1（代码）窗口，将以下代码复制粘贴至模块中：
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
第四步：点击“运行”按钮，即可批量修改文档中所有表格样式。
此非原创，仅供自己学习参考，忘了在哪找到的，如有侵权请联系删除。
