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里如何选中全部表格