返回目录：office365
ctrl+F----->表格，即可一次性选择word中的所有表格。-----<注：这是一个错误的答案，抱歉。下面有正确的答案，往下看。>
针对此回答，引来不少人的质疑和嘲笑，非常抱歉和遗憾；因为当时自己有个类似的需求，得知有该方法，遇到该问题时，当时觉得和自己当时遇到的问题一样就回答了。确实我说的这个方法只能是一次性突出显示word里的包含表格的标题，且该表格所属的标题必须做了级别设定，而且只是在导航窗格里黄色突出显示而已，好处是能看出来有级别设定的表格有多少，不是选中7a64e78988e69d83331。如下图。
另回答一下本问题：“如何一次性选中word里的所有表格“
1 将下面的脚本复制（在最后哦，也是网上找的）
2 word---视图---宏----查看宏----输入宏名：SelectAllTables----点击创建（参图1）
3 将脚本编辑窗口中的默认代码删掉，粘贴1步复制的脚本,保存并关闭（参图2）
4 word---视图---宏----查看宏----运行刚创建的宏（参图1）
在word中查看，所有表格已为选中状态。
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
ALT+F8,打开宏对话7a64e4b893e5b19e338框，创建名为SelectAllTables的宏。代码如下：
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
保存完成后选择加载该宏即可。
在工作过程中可能遇到这样的情况，一个很大的WORD文档中有许多个表格，需要对所有表格的某一项属性进行修改e799bee5baa6e59b9ee7ad94330，但是一个表一个表的逐个修改实在太费时费力。那有没有一次性选中所有表格，然后一次全部修改的办法呢，答案是：有！不过要用到“宏”。方法是新建一个“宏”，代码如下：
Sub qxbg()
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
保存该宏之后，执行即可全部选中，然后就可以进行下一步操作了。
当表格很多，比如1000个表格，逐一删除是比较麻烦的，此时可以录制一个宏，赋予宏一个快捷键，然后按住宏快速键就可以一次自动删除文档中的所有表格，这样做的好处是快速，且不会影响其余文字图片等需保留内容的外观：
下面分别以Word2003和2007为例来讲详细的操作：
Word2003:
1.在主菜单运行[工具==〉宏===〉录制新宏]命令7a686964616fe59b9ee7ad94333===〉键盘==〉在[请按快捷键]位置按Alt+A（注意不是Ctrl+A，此快捷键要不和常用的Word快捷键冲突）==〉指定==〉关闭
2.这时会弹出一个小小的宏工具栏，表示开始录制宏了，按Ctrl+Home快捷键，然后按Ctrl+G快捷键，左边选[表格]，然后点[下一处]
3.在主菜单运行[表格===〉删除==〉表格]命令，点宏工具栏上的[停止]按钮完成宏的录制。
4.运行宏，也就是一直按住先前自定义的Alt+A快捷键不松手，直到表格全部自动删除。
好了，就算是几千个的表格也可以几十秒钟内删除了。
Word2007和2003录制宏原理一样，只是开始找宏的位置不一样：
1.点软件视窗左上角的圆形Office按钮==〉Word选项==〉常用===〉勾选[在功能区显示[开发工具]选项卡]==〉确定
2.切换到[开发工具]选项卡==〉录制宏
之后的操作和Word2003一样。
此解决方法的关键词：宏，快捷键，一直按住不放直到表格被全部删除。