使用宏在word中一次选择所有的表格

有时候在word文档中可能需要统一的调整其中所有表格的字体或者位置等一些信息，但是在word2010中就没有找到这样的功能，

不过使用宏可以完成此操作：

代码如下：

Sub konggs()
Dim mytable As Table
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub

运行该宏，就可以一次将word文档中的所有表格都选中了