word中怎么一次选中所有表格

除非是整篇文档中都是表格，否则，你这个要求就需要用到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

具体操作方法：

1、单击需要选中word中表格的某行或列中的单元格；

2、然后选择靠右上角页面中的表格工具选择；

3、点击表格工具选项以后，再选择右上角wps文字里的表格功能；

4、点击表格A以后，在选择表格功能里的选择s和表格T功能；

5、点击选择里的表格A以后，表格立刻全选状态,如图所示。

ALT+F8,打开宏对话框，创建名为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

保存完成后选择加载该宏即可。

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、首先单击表格上的“十字形图标”,可以全选表格。

2、接着单击“设计”,操作如下图,选择其中一个表格样式。

3、如图，表格的外观快速改变了。接着将光标定位在任一单元格内。

4、接下来教大家设置单元格底纹。以橘色为例。单击“橘色”。效果设置如同。

5、我们接着继续调整表格格式。选中表格后，设置表格对齐方式，以“水平居中”为例。

6、这时候文本更改位居中对齐,接着选中表格首行,然后更改文字方向。

7、如图,首行文字变成了纵向排列。大家根据需要设置文字方向。这里按ctrl+Z撤销更改文字方向的操作。

8、接着选择表格，启动排序命令。

9、设置排序关键字，这里单击“面积”。在类型中单击“数字”。我们将根据表格中面积的数字大小进行排序。选择升序。单击确定。效果如下。

10、选中表格后，启动自动调整命令。按照图所示操作点击。效果如图。

转载请注明出处办公知识网 » word中怎么一次选中所有表格