Sub SelectAllTables() Dim tempTable As TableApplication.ScreenUpdating = False'判断文档是否被保护If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox '文档已保护,此时不能选中多个表格!'Exit SubEndIf'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryone'添加可编辑区域ForEach...
代码如下: Sub selectAllTables() Application.ScreenUpdating = False ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Dim mytable As Word.Table For Each mytable In ActiveDocument.Tables mytable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.De...
1、选中所有的表格。 2、再对表格格式调整。 选中所有表格需要用到宏,操作很简单,具体操作如下: (1)工具栏“视图”下右下角“宏”。 (2)点击,会出现下面的编辑框。 (3)先填写宏名,可以叫“SelectAllTables”,单击创建,出弹出编辑框如下。 (4)拷贝代码进去,放在“selectalltables宏”和“endsub”之间,代码...
ALT+F8,打开宏对话框，创建名为SelectAllTables的宏。代码如下：Sub SelectAllTables()Dim tempTable As TableApplication.ScreenUpdating = False'判断文档是否被保护If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox "文档已保护，此时不能选中多个表格！"Exit SubEnd If'删除所有可编辑的...
宏名 输入 SelectAllTables,点创建。 然后进入了宏编辑界面,最初代码如: AI检测代码解析 Sub SelectAllTables() ' ' SelectAllTables 宏 ' ' End Sub 1. 2. 3. 4. 5. 6. 7. 然后编写宏,最后代码为: AI检测代码解析 Sub SelectAllTables() ...
Application.ScreenUpdating = True End Sub 2.打开word-视图-宏（查看宏）3.在“宏”对话框中，输入宏名“SelectAllTables”(自定义)点击【创建】按钮 4. 删除默认脚本，粘贴复制的脚本，保存并关闭“宏”对话框 5. 视图-宏-查看宏-运行 6. 稍等，word将选择该文档中全部的表格 好多表格的话...
Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ActiveDocument.DeleteAll...
1 打开word文档，切换到“视图”标签-点击“宏”下拉箭头-点击“查看宏”或者直接快捷键Alt+F8 2 在弹出的宏创建对话框，输入宏名字（可以是中文），然后点击右侧“创建”按钮 3 用所给的代码替换掉默认的内容：Sub SelectAllTables() Dim tempTable As Table Application.ScreenUpdating = False '判断...
1、打开word文档，切换到“视图”选项、标签、点击“宏”选项，然后下拉箭头点击“查看宏”选项或者直接快捷键Alt+F8；2、在弹出的宏创建对话框，输入宏名字（可以是中文），然后点击右侧“创建”按钮；3、用所给的代码替换掉默认的内容：Sub SelectAllTables()、Application.ScreenUpdating = False '判断...
MsgBox "文档已保护,此时不能选中多个表格!" Exit Sub End If ActiveDocument.DeleteAllEditableRanges wdEditorEveryone For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges wdEditorEveryone ...