一次性选中word中全部Table

最新推荐文章于 2023-03-16 12:59:59 发布

weixin_30877493

最新推荐文章于 2023-03-16 12:59:59 发布

阅读量780

点赞数

原文链接：http://www.cnblogs.com/yangyuqiu/p/9869977.html

版权

Sub 批量修改表格()

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

转载于:https://www.cnblogs.com/yangyuqiu/p/9869977.html