word选中所有的表格——宏

时间：2025-04-24 07:58:32
Sub 选中所有表格()
    Dim aTable As Table
    Application.ScreenUpdating = False
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each aTable In ActiveDocument.Tables
        aTable.Range.Editors.Add wdEditorEveryone
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    Application.ScreenUpdating = True
End Sub

通过豆包/deepseek解释代码含义，指令为：这是一串word中vba代码，请逐条解释每行代码的意思，并将代码和解释的内容整合到一起。

代码逻辑详解：

  1. 权限操作技巧
    通过临时给表格添加wdEditorEveryone（所有人可编辑）权限，利用SelectAllEditableRanges方法实现多选区选中。这是Word VBA中间接选中多个非连续区域（如多个表格）的常用技巧。

  2. wdEditorEveryone 常量
    属于WdEditorType枚举，值为1，代表"任何可以打开文档的人"。该参数通常用于协作场景，此处仅作为选区工具使用。

  3. 性能优化
    ScreenUpdating的设置避免了反复刷新界面，显著提升代码执行速度（对含大量表格的文档尤其明显）。

' 定义一个名为“选中所有表格”的子程序，用于执行选中文档中所有表格的操作
Sub 选中所有表格()
    ' 声明一个 Table 类型的变量 aTable，用于在后续循环中引用文档中的表格
    Dim aTable As Table
    ' 关闭 Word 应用程序的屏幕更新功能，提高代码执行效率，避免屏幕闪烁
    Application.ScreenUpdating = False
    ' 删除当前活动文档中所有用户的可编辑区域，清除之前可能存在的可编辑区域标记
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    ' 开始一个 For Each 循环，遍历当前活动文档中的所有表格
    For Each aTable In ActiveDocument.Tables
        ' 为当前表格的范围添加所有用户的编辑权限，将表格标记为可编辑区域
        aTable.Range.Editors.Add wdEditorEveryone
    ' 结束 For Each 循环，程序回到循环起始处处理下一个表格
    Next
    ' 选中当前活动文档中所有用户可编辑的区域，即之前标记的所有表格
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ' 再次删除当前活动文档中所有用户的可编辑区域，清除之前添加的可编辑权限标记
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    ' 重新开启 Word 应用程序的屏幕更新功能，恢复正常的屏幕显示更新
    Application.ScreenUpdating = True
' 结束“选中所有表格”子程序
End Sub

参考：【一次性选择word文档中的全部表格】 https://www.bilibili.com/video/BV1QX4y1J7gd/?share_source=copy_web&vd_source=e2338c063cd49188a452094eb0b6f740

相关文章