选择word中的表格VBA

1. 打开开发工具
   

2. 选择Visual Basic

3. 插入代码

   Sub 选择word中的表格()
   Dim t As Table
   an = MsgBox("即将选择选区内所有表格，若无选区，则选择全文表格。", vbYesNo, "提示")
   If an - 6 Then Exit Sub
   Set rg = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   For Each t In rg.Tables
   t.Range.Editors.Add wdEditorEveryone
   Next
   ActiveDocument.SelectAllEditableRanges wdEditorEveryone
   ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
   End Sub

4. 点击上面的运行按钮