如何一次性选中WORD文档中的所有表格

1 将下面的脚本复制

2 word---视图---宏----查看宏----输入宏名：SelectAllTables----点击创建（图1）

3 将脚本编辑窗口（图2）中的默认代码删掉，粘贴1步复制的脚本,保存并关闭

4 word---视图---宏----查看宏----运行刚创建的宏，在word中查看，所有表格已为选中状态。

 

 

 

 

 

 

 

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