怎么全选文档中的所有表格？

Question

如题所述

Answer 1

除非是整篇文档中都是表格，否则，你这个要求就需要用到VBA（宏命令）了。

给你一段代码，在word文档中创建宏，然后把以上代码复制粘贴到宏里边，然后运行这个宏，它就可以帮你一次选中文档中的所有表格了。代码如下（或者到百度文库里下载这个文档【word，全选文档中所有表格】）：

Sub 全选所有表格() ' 

' 全选所有表格 Macro ' 

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 = True 

End Sub