Question

如何选中word文档里的所有表格

Answer 1

ctrl+F----->表格，即可一次性选择word中的所有表格。-----<注：这是一个错误的答案，抱歉。下面有正确的答案，往下看。>

针对此回答，引来不少人的质疑和嘲笑，非常抱歉和遗憾；因为当时自己有个类似的需求，得知有该方法，遇到该问题时，当时觉得和自己当时遇到的问题一样就回答了。确实我说的这个方法只能是一次性突出显示word里的包含表格的标题，且该表格所属的标题必须做了级别设定，而且只是在导航窗格里黄色突出显示而已，好处是能看出来有级别设定的表格有多少，不是选中。如下图。

另回答一下本问题：“如何一次性选中word里的所有表格“

1 将下面的脚本复制（在最后哦，也是网上找的）

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

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

4 word---视图---宏----查看宏----运行刚创建的宏（参图1）

   在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