word里如何选中全部表格

1.在word中怎么一次选中所有表格

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 = TrueEnd Sub保存完成后选择加载该宏即可。

2.在word中怎么一次选中所有表格

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

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

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

1、打开word文档，切换到“视图”标签-点击“宏”下拉箭头-点击“查看宏”。

2、在弹出的宏创建对话框，输入宏名字（可以是中文），然后点击右侧“创建”按钮。

3、用所给的代码替换掉默认的内容：Sub SelectAllTables（)、Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护，此时不能选中多个表格！"；

4、粘贴完代码后，直接点击工具栏的运行按钮?，此时文档中所有表格已经选中，关闭VBA编辑器。（再次运行宏的话，直接Alt+F8打开对话框，选中宏点击右侧“运行”）

5、回到文档，在“表格工具”-设计-设置框线粗细-边框下拉菜单里点击“所有边框”，如果点击一次“所有边框”是取消掉所有表格的框线，接着再点一次“所有框线”即可。

6、最后再检查从前往后检查一下，这个设置好像会把表格单元格内斜线取消掉，需要重新加一下。

4.在worD中如何快速选中整个表格

1、在利用电脑快捷键选择时，如果需要选中多个不连续的单元格，就按住Ctrl键，鼠标依次选择要选中的单元格。

2、如果需要选中一部分的单元格，就按住Shift键，然后鼠标点击部分单元格的左上角单元格和右下角单元格，就可以选中两个单元格的旁边和两个单元格中间的所有单元格。 3、如果需要选中一个单元格，就把鼠标点击那个单元格，然后点击菜单栏表格工具下的“布局”，点击“选择”，再点击“选择单元格”即可。

扩展链接： word中的其他快捷键： 按住[Ait]键，可以暂时忽略网格使图片平滑移动。 按住[Shift]键，依次选取需要对齐的图形，完成若干图形对齐任务。

按住[Shift]键并单击“打印预览”按扭，可快速打印工作表。 按[shift+Enter]组合键，可以在当前幻灯片的后面插入一张新幻灯片。

按[Tab]键，选择下一个单元格；按[Shift+ Tab]组合键选择前一个单元格。 按[Shift]键，再按回车键，就会产生一个换行符。

如果打开的窗口或窗体角朵，并且把数据库窗口完全挡住了，这时只要按下[F11]（也可以按下[Ait+ F11]），数据库窗口将被前置。 按[Ctri+：]组合键，可以输入当前日期； 按[Ctri+ shift+：]组合键，可以输入当前时间。

选定大块区域，按[Shift]键后拖动鼠标。选定矩形区域，，按[Ait]键后拖动鼠标（大纲视图下无效）。

参考资料来源：人民网——超实用的最全Word快捷键。

5.如何选中word里的所有表格

一、Word如何删除表格之快捷键

1、鼠标移到表格上，单击表格左上角的带箭头的十字架选中表格。

2、按 Shift + Delete（或 Backspace），表格连同内容一并被删除。

二、Word如何删除表格之右键

1、移鼠标到表格上，点击表格左上角的带箭头的十字架选中它，右键表格。

2、选择“删除表格”，则整个表格被删除，这是Word去除表格右键法。

6.在word中能不能一下选中所有的表格

Sub 选中所有表格（） 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 = TrueEnd Sub上面是选中所有表格的宏代码，希望能帮到你。

转载请注明出处51数据库 » word里如何选中全部表格