word选中所有的表格——宏

vbscript 复制代码
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的设置避免了反复刷新界面,显著提升代码执行速度(对含大量表格的文档尤其明显)。

vbscript 复制代码
' 定义一个名为"选中所有表格"的子程序,用于执行选中文档中所有表格的操作
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

相关推荐
跨境卫士情报站1 小时前
高阶亚马逊运营秘籍:关键词矩阵打法深度解析与应用
经验分享·教育电商
axinawang4 小时前
极域电子教室出现问题如何处理
经验分享
技术小赵17 小时前
优化Facebook广告投放的五大关键策略
经验分享
智者知已应修善业1 天前
【51单片机节日彩灯控制器设计】2022-6-11
c语言·经验分享·笔记·单片机·嵌入式硬件·51单片机
Yo_Becky1 天前
【PyTorch】PyTorch预训练模型缓存位置迁移,也可拓展应用于其他文件的迁移
人工智能·pytorch·经验分享·笔记·python·程序人生·其他
ONETHING_CLOUD_21 天前
电脑系统重装有什么用?
经验分享·科技·计算机·电脑·数码
会的全对٩(ˊᗜˋ*)و1 天前
【数据挖掘】数据挖掘综合案例—银行精准营销
人工智能·经验分享·python·数据挖掘
future14121 天前
每日问题总结
经验分享·笔记
bu_shuo1 天前
word表格中使用公式
word·表格
不坑老师1 天前
利用不坑盒子的Copilot,快速排值班表
microsoft·word·powerpoint·excel·copilot·wps