ctrl+F----->表格,即可一次性选择word中的所有表格。-----<注:这是一个错误的答案,抱歉。下面有正确的答案,往下看。>
针对此回答,引来不少人的质疑和嘲笑,非常抱歉和遗憾;因为当时自己有个类似的需求,得知有该方法,遇到该问题时,当时觉得和自己当时遇到的问题一样就回答了。确实我说的这个方法只能是一次性突出显示word里的包含表格的标题,且该表格所属的标题必须做了级别设定,而且只是在导航窗格里黄色突出显示而已,好处是能看出来有级别设定的表格有多少,不是选中。如下图。
![](https://i-blog.csdnimg.cn/blog_migrate/b9de2316682f956a7ca8b9e349b73ef2.jpeg)
另回答一下本问题:“如何一次性选中word里的所有表格“
1 将下面的脚本复制(在最后哦,也是网上找的)
2 word---视图---宏----查看宏----输入宏名:SelectAllTables----点击创建(参图1)
3 将脚本编辑窗口中的默认代码删掉,粘贴1步复制的脚本,保存并关闭(参图2)
4 word---视图---宏----查看宏----运行刚创建的宏(参图1)
在word中查看,所有表格已为选中状态。
![](https://i-blog.csdnimg.cn/blog_migrate/ab7bc7fa9c7ac9c71b4d0e29c0d0eb10.jpeg)
![](https://i-blog.csdnimg.cn/blog_migrate/d5281cf5ecc7fbc09ae29f33d722a3eb.jpeg)
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 = True
End Sub