上百上千表格,需要全部设置大小。手动就废了
记录这个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
拷贝,运行。等待选中结束切换到文档,即可看到全部选择后的效果。
--over!
时间: 2024-10-04 12:08:33