[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

结果就是下图这样的了

现在就结束了，可以使用了

使用：还在这个页面，点击功能栏的绿色小三角形

注意：第一次运行可能会有点慢（也没有很慢啦），等它没在显示【正在运行】就说明运行结束了

回到需要操作的文档，发现所有表格已经全部被选中了，可以进行批量操作了

刚在编辑宏的大页面可以关掉了，这个方法已经被保存到word应用中，下次直接找到第一步提到的查看宏，点击前面创建的宏运行就能直接全部选中

4、批量操作示例--透明表格边框

下面示例把所有表格的表格线改成透明的：

根据上面的操作，已经选中所有表格

首先右键任一块被选中的表格，选择“表格属性”

然后选择下面的“边框和底纹”

 

设置 无 确定 确定 即可