怎么在word里选择表格,如何批量处理word中的表格

内容导航：

• 怎么在word里选择表格
• 如何批量处理word中的表格

一、怎么在word里选择表格

ctrl+F----->表格，即可一次性选择word中的所有表格。-----<注：这是一个错误的答案，抱歉。下面有正确的答案，往下看。>

针对此回答，引来不少人的质疑和嘲笑，非常抱歉和遗憾；因为当时自己有个类似的需求，得知有该方法，遇到该问题时，当时觉得和自己当时遇到的问题一样就回答了。确实我说的这个方法只能是一次性突出显示word里的包含表格的标题，且该表格所属的标题必须做了级别设定，而且只是在导航窗格里黄色突出显示而已，好处是能看出来有级别设定的表格有多少，不是选中。如下图。

另回答一下本问题：“如何一次性选中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

二、如何批量处理word中的表格

方法：
1、打开这个文档，点击窗口上面的菜单“工具”-》“宏”-》“Visoual Basic编辑器”；
2、在弹出的VBE窗口中点窗口上面的菜单“插入”-》“模块”；
3、在VBE窗口的右下侧窗口内粘贴上如下代码：

Option Explicit

Sub 删除所有表格第8列()
Dim tbl As Table
Application.ScreenUpdating = False
For Each tbl In ActiveDocument.Tables
tbl.Columns(8).Delete
Next
Application.ScreenUpdating = True
End Sub

4、关闭VBE，返回文档窗口，点击窗口上面的菜单“工具”-》“宏”-》“宏”；
5、在弹出窗口中选择“删除所有表格第8列”，运行一下就好了。