《word-VBA全选文档内所有表格的代码(共1页).doc》由会员分享，可在线阅读，更多相关《word-VBA全选文档内所有表格的代码(共1页).doc（1页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
精选优质文档-倾情为你奉上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专心-专注-专业