全选WORD 文档中的所有表格选（office Word“wps不适用”）

‘**************************************
‘ 函数名: 全选表格代码
‘ 功   能:主要是把WORD文档中的所有表格选取上，以便单独对文档中的所有表格进行整体编辑。

‘**************************************

代码如下：

Sub 全选表格代码()

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