利用宏一次选中所有表格 然后批量改动

  • A+
所属分类:软件应用

将以下代码放入word文档-开发工具-vb编辑器-插入-模块代码中

Sub SelectAllTables()
Dim tempTable As Table

Application.ScreenUpdating = False

'删除所有可编辑的区域
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

weinxin
微信公众号
扫码关注 可关键字检索