选择word中的表格VBA

最新推荐文章于 2025-04-27 18:36:04 发布

水墨丹枫

最新推荐文章于 2025-04-27 18:36:04 发布

阅读量872

点赞数 4

文章标签： word

本文链接：https://blog.csdn.net/qq_25037705/article/details/136888233

版权

打开开发工具
选择Visual Basic
插入代码

Sub 选择word中的表格()
Dim t As Table
an = MsgBox("即将选择选区内所有表格，若无选区，则选择全文表格。", vbYesNo, "提示")
If an - 6 Then Exit Sub
Set rg = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Each t In rg.Tables
    t.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End Sub

在这里插入图片描述