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

相关推荐
Dream Algorithm几秒前
CT、IT、ICT 和 DICT区别
经验分享·信息与通信
梅羽落9 小时前
谷歌无法安装扩展程序解决方法(也许成功)
经验分享
六哥探店实录113 小时前
外带服务的温度:藏在包装里的“生活共情力”
经验分享·职场和发展·生活·创业创新·学习方法·新浪微博·餐饮行业
Joker—H1 天前
【Java】Reflection反射(代理模式)
java·开发语言·经验分享·代理模式·idea
揭老师高效办公1 天前
在Word和WPS文字中添加的拼音放到文字右边
word·wps文字
_oP_i1 天前
c# openxml 打开加密 的word读取内容
开发语言·c#·word
门前云梦1 天前
ollama+open-webui本地部署自己的模型到d盘+两种open-webui部署方式(详细步骤+大量贴图)
前端·经验分享·笔记·语言模型·node.js·github·pip
骁的小小站1 天前
The Missing Semester of Your CS Education 学习笔记以及一些拓展知识(六)
linux·经验分享·笔记·学习·bash
m0_564264182 天前
开源数据库E-R图绘制工具分享
数据库·经验分享·mysql·e-r图·开源工具
花海如潮淹2 天前
API安全监测工具:数字经济的免疫哨兵
网络·经验分享·笔记·安全