word里包含多个表格如何同时修改

使用“宏”完成选择所有表格-修改，方法如下：

1. 复制以下脚本：

   
   

   Sub SelectAllTables()

    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. 打开word-视图-宏（查看宏）

3. 在“宏”对话框中，输入宏名“SelectAllTables”(自定义)点击【创建】按钮

4. 删除默认脚本，粘贴复制的脚本，保存并关闭“宏”对话框

5. 视图-宏-查看宏-运行

6. 稍等，word将选择该文档中全部的表格。