第一步：直接按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
此时，即可看到文档中所有的表格样式都变成了刚选择的样式效果啦！ 技巧提示：如果你按下Alt+F11键打不开VBA 窗口，则可点击【文件】-【选项】，在打开的"Word选项”对话框中的“自定义功能区”中勾选“开发工具”复选框。返回Word界面，展开“开发工具”菜单，在最左侧即可看到“visual Basic"编辑器按钮。
[h1]02[/h1][h1]一次删除文档中所有表格[/h1]有时候，文档中可能并不需要配表格，那么，我们就要将所有表格删除。如何快速删除文档中所有表格呢？同样或借助VBA代码来实现。 第一步：按Alt+F11键，打开VBA窗口代码。 第二步：在打开的VBA窗口中，右击Thisdocument，在弹出的菜单中选择“插入”-“模块”选项。 第三步：在VBA窗口中输入或复制以下代码：
Sub Removetables()
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
oTable.Delete
Next oTable
End Sub 第三步：运行代码，最小化代码窗口。返回Word界面，即可看到文档中的表格都已一次性全部删除了。
转播
