word-VBA全选文档内所有表格的代码

Sub全选所有表格()''全选所有表格Macro'DimtempTableAsTableApplication.ScreenUpdating=False'判断文档是否被保护IfActiveDocument.ProtectionType=wdAllowOnlyFormFieldsThenMsgBox文档已保护，此时不能选中多个表格！ExitSubEndIf'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRangeswdEditorEveryone'添加可编辑区域ForEachtempTableInActiveDocument.TablestempTable.Range.Editors.AddwdEditorEveryoneNext'选中所有可编辑区域ActiveDocument.SelectAllEditableRangeswdEditorEveryone'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=TrueEndSub