word文档中怎样选取所有表格

运行以下宏代码

Sub 选中所有表格()

Dim 文档表格 As Table

For Each 文档表格 In ActiveDocument.Tables

文档表格.Range.Editors.Add wdEditorEveryone

Next

ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)

ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)

End Sub