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...
如何一次性选中word文档中的所有表格
在工作过程中可能遇到这样的情况,一个很大的WORD文档中有许多个表格,需要对所有表格的某一项属性进行修改,但是一个表一个表的逐个修改实在太费时费力。
那有没有一次性选中所有表格,然后一次全部修改的办法呢,答案是:有!不过要用到“宏”。
方法是新建一个“宏”,代码如下:Sub qxbg()Dim tempTable As TableApplication.ScreenUpdating = False'判断文档是否被保护If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox "文档已保护,此时不能选中多个表格!"Exit SubEnd If'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryone'添加可编辑区域For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryoneNext'选中所有可编辑区域ActiveDocument.SelectAllEditableRanges wdEditorEveryone'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating = TrueEnd Sub保存该宏之后,执行即可全部选中,然后就可以进行下一步操作了。
如何选中word里的所有表格?
一、Word如何删除表格之快捷键1、鼠标移到表格上,单击表格左上角的带箭头的十字架选中表格。
2、按 Shift + Delete(或 Backspace),表格连同内容一并被删除。
二、Word如何删除表格之右键1、移鼠标到表格上,点击表格左上角的带箭头的十字架选中它,右键表格。
2、选择“删除表格”,则整个表格被删除,这是Word去除表格右键法。
在worD中如何快速选中整个表格
有Word中,快速选中整个表格的方法有:方法一:将鼠标指针放在表格的左上角如图所示的全选柄上,当指针变为带箭头的十字形时,按下鼠标键,即可全选表格。
方法二:1、将光标定位在表格中;2、单击表格工具布局----选择----选择表格即可,如图所示。
如何一次选中word里面的所有表格的同一行啊?
用宏:Sub konggs() Dim mytable As Table Application.ScreenUpdating = False For Each mytable In ActiveDocument.Tables mytable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) Application.ScreenUpdating = TrueEnd Sub
长word文档中如何全选所有表格?
使用“宏”功能选择,方法如下:1.复制以下脚本:Sub SelectAllTables()Dim tempTable As TableApplication.ScreenUpdating = False'判断文档是否被保护If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox "文档已保护,此时不能选中多个表格!"Exit SubEnd If'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryone'添加可编辑区域For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryoneNext'选中所有可编辑区域ActiveDocument.SelectAllEditableRanges wdEditorEveryone'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating = TrueEnd Sub2.打开word-视图-宏(查看宏)3.在“宏”对话框中,输入宏名“SelectAllTables”(自定义)点击【创建】按钮4. 删除默认脚本,粘贴复制的脚本,保存并关闭“宏”对话框5. 视图-宏-查看宏-运行6. 稍等,word将选择该文档中全部的表格
转载请注明出处51数据库 » word中选中所有表格