VBA一键修改word表格样式

一次修改文档中的表格样式

一次修改文档中所有表格样式

为美化文档，我们通常会将文档中的所有表格格式样式统一，如何快速快速搞定，这里小编教大家一招批量设置表格样式的技巧。

第一步：直接按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

第四步：点击“运行”按钮，即可批量修改文档中所有表格样式。

此非原创，仅供自己学习参考，忘了在哪找到的，如有侵权请联系删除。