快速选中word文档内所有表格.doc

一次性选中文档中所有表格1、设置1）打开word文档，视图——宏——查看宏2）在宏名项下填写SelectAllTables，点击创建按钮注意：宏名不要有空格等特殊字符，输入均为英文状态下输入的字符3）复制以下代码，粘贴到空白编辑框中，然后点击保存按钮，关闭代码编辑框注：粘贴前请删除编辑框内的默认代码Sub SelectAllTables() 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 = TrueEnd Sub3、右上角点关闭2、点击保存1、复制粘贴2、使用1）点击“视图——查看宏”2）点击“运行”按钮即可3）使用效果如下图。

注：该代码可以只选中文档中所有表格，程序运行需要一定时间，运行前请先保存文档，中心电脑偶尔会有文档卡死现象查看表格选中效果请用鼠标拖拉文本框右侧滑块。