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

《word-VBA全选文档内所有表格的代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、eDocument.TablestempTable.Range.Editors.AddwdEditorEveryoneNext'选中所有可编辑区域ActiveDocument.SelectAllEditableRangeswdEditorEveryone'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=TrueEndSub