Sub 全选所有表格() 全选所有表格 MacroDim tempTable As TableApplication.ScreenUpdating = False判断文档是否被保护If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox 文档已保护，此时不能选中多个表格！Exit SubEnd If删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryone添加可编辑区域For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryoneNext选中所有可编辑区域ActiveDocument.SelectAllEditableRanges wdEditorEveryone删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating = TrueEnd Sub