Word批量選中表格

選擇選項

在自定義區域勾選開發工具

選着Visual Basic

輸入以下代碼

代碼

Sub 批量選中表格()

Dim tempTable As Table

Application.ScreenUpdating = False

If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then

MsgBox "文檔已保護，此時不能選中多個表格！"

Exit Sub

End If

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

For Each tempTable In ActiveDocument.Tables

tempTable.Range.Editors.Add wdEditorEveryone

Next

ActiveDocument.SelectAllEditableRanges wdEditorEveryone

ActiveDocument.DeleteAllEditableRanges wdEditorEveryone

Application.ScreenUpdating = True


End Sub

選着宏

運行宏

運行之後會選中所有的表格。