Word VBA 选取文档中的所有表格

Sub 选取所有表格()

'
' 选取表格 宏
'
     Dim T As Table
     Application.ScreenUpdating = False
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
     For Each T In ActiveDocument.Tables
         T.Range.Editors.Add wdEditorEveryone
     Next
     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
     Application.ScreenUpdating = True
 
End Sub