按Alt+F11
调出窗口。
选择视图-代码窗口
,然后在弹出的窗口粘贴下面代码。
Sub selecttables()
Dim mytable As Table
For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub
效果如下图所示:
然后点击运行-运行子过程/用户窗体
,即可返回word文档,此时所有表格已经被选中。
可以关闭上图的窗口。保存文档时提示下面的信息,选择是即可。