Word中一次性选中所有表格内容

在合并一些文档时，因为各个文档格式不统一，复制过来的表格里的内容字体缩进行距这些都不一样，有时我们需要调整表格内容格式，但是一个一个改效率太低了。最近学习到一个新操作，可以通过宏操作实现文档中所有表格内容选中，具体步骤如下：

（1）如图1所示， 在word找到“视图”选项卡，点击“宏”，选择“查看宏”；

图1

（2）输入宏名：SelectAllTables（也可以是别的，自己定义就行），然后点击创建，如图2 所示；

图2

（3）将脚本编辑窗口中的默认代码删掉，将下面的脚本复制粘贴过去，保存并关闭（如图3）；

图3

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

（4）如图4所示， word---“视图”---“宏”----“查看宏”----“运行”，搜索到刚刚定义的程序名称，然后“运行”即可，这样就选中了所有的表格内容了。

图4