沫沫金提供：word文档批量选择表格启用宏

Posted 2020-08-19

上百上千表格，需要全部设置大小。手动就废了

记录这个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！