word有办法同时选中多个表格吗能不能同时对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中怎么一次选中所有表格
1.ALT+F8,打开宏对话框,创建名为SelectAllTables的宏。
代码如下: Sub SelectAllTables()Dim tempTable As TableApplication.ScreenUpdating = False2. '判断文档是否被保护If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox "文档已保护,此时不能选中多个表格!"Exit SubEnd If3.'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryone4.'添加可编辑区域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怎么实现一表多填有多个表格(有些不是表格),需要填的数据
ub 选中所有表格() Dim tempTable As Table Application.ScreenUpdating = False '.DeleteAllEditableRanges wdEditorEveryone '添加可编辑区域 For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next '.ScreenUpdating = TrueEnd Sub上面是选中所有表格的宏代码!".SelectAllEditableRanges wdEditorEveryone '删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application; Exit Sub End If '删除所有可编辑的区域 ActiveDocument;选中所有可编辑区域 ActiveDocument;判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格...