word选中所有表格，宏的使用

场景

需求文档有上百个表格，最后要统一居中对齐，一个一个选太麻烦而且容易漏，怎样才能快些呢?

解决方案

使用word的宏是可以的。

打开宏：
视图 | 宏 | 查看宏。 ( 快捷键是 alt+f8 )

宏名 输入 SelectAllTables，点创建。
然后进入了宏编辑界面，最初代码如：

Sub SelectAllTables()
'
' SelectAllTables 宏
'
'

End Sub

然后编写宏，最后代码为：

Sub SelectAllTables()
'
' 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

保存，然后关闭宏编辑窗口。

alt+f8打开宏界面，点选 SelectAllTables 这个宏，点运行。 会发现已选中了所有表格。