介绍3种方法全选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

如果不清楚宏使用方法，可以百度，如果觉得麻烦，建议用下面的方法

2 表格工具Word文档自动排版软件

工具→表格工具→选中表格或周边段落

可以选中文档中

所有表格区域

所有非表格区域

所有表格首行

所有表格首列

所有表格最后1行

所有表格前1段落（可能为表名）

所有表格后1段落（可能为表注）

还可以指定表格类型

所有表格

实线边框表格

虚线边框表格

横向表格

跨页表格

而且可以约束限于选定范围和数量

选定表格前后的段落还可以限定长度

3 批量替换工具→批量替换→表格(Table)或前后段落

目标位置限制

=0处理表格

>0处理表格前的行，表格前1行=1

<0处理表格后的行，表格后1行=-1

每个找到的目标会自动加上突出显示

再用

工具→颜色工具→选中所有突出显示

进行全选

然后可以快速设置Word文档中所有表格字体、段落、样式等

阅读全文