[word] 复杂文本如何仅全选word中的表格（简单跟做即可）

问题描述

在word文档中，有各种形式的文本，有纯文本，有表格，有图片或者更多其它形式参杂在一起，本篇记录解决如何只全选中文档中的所有表格形式的部分，从而方便对表格进行批量修改和操作

环境说明

word版本：2021专业版（实测版本都差不多，都有对应功能，方法都能用）

操作步骤

1、找到视图->宏->查看宏

打开需要操作的文档，找到上面功能栏的：视图->宏->查看宏

2、创建宏

在弹出的"宏"窗口创建宏

首先在"宏名"下面随便输入你想叫的名字，叫什么都可以，比如我的叫select_all_tables然后点击右侧"创建"

3、宏编辑

点击创建后弹出一个大窗口，这里就是编辑刚才创建的宏的地方

首先，把中间框框里面的所有东西删掉，就是下图选中的都删掉，确保全部删除

删除后，把下面这段代码复制，粘贴到刚才的位置

复制代码

'**************************************
' 函数名: SelectAllTables
' 功   能:主要是把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