word表格批量操作——宏

word中所有表格代码

这个是表格的模板代码

vbscript 复制代码
Sub 表格通用代码()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables (i)
Next
End Sub

1、根据内容自动调整表格

vbscript 复制代码
Sub 表格适用内容()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent)
Next
End Sub

代码中wdAutoFitContent可以更改为1。

2、根据窗口自动调整表格

vbscript 复制代码
Sub 表格适用窗口大小()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow)
Next
End Sub

wdAutoFitWindow可以更改为2。

3、所有表格应用样式

vbscript 复制代码
Sub 三线表样式()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).Style = "三线表"
Next
End Sub

这个代码运行成功的前提是样式中有"三线表"这个样式。

4、通过录制宏,自定义代码

可以通过录制宏修改一个选中的表格,然后把代码放进去,统一修改其他表格。

vbscript 复制代码
Sub 表格统一格式()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables(i).Select
    [这后面放录制的代码]
Next
End Sub

5、删除所有表格

vbscript 复制代码
Sub 删除表格()
For i = ActiveDocument.Tables.Count To 1 Step -1
    ActiveDocument.Tables (i).Delete
Next
End Sub

仅对选中表格执行的代码

这个是选中区域表格的模板代码

vbscript 复制代码
Sub 选中区表格通用代码()
For i = Selection.Tables.Count To 1 Step -1
    Selection.Tables (i)
Next
End Sub

如:选中区表格适应窗口的代码:

vbscript 复制代码
Sub 选中区表格适应窗口()
For i = Selection.Tables.Count To 1 Step -1
    Selection.Tables (i).AutoFitBehavior (wdAutoFitWindow)
Next
End Sub

先选中一部分内容,然后运行代码,这样仅对选中区域范围内的表格进行修改。


参考:【宏入门,不妨从现在开始】 https://www.bilibili.com/video/BV1yV411P7rB/?share_source=copy_web\&vd_source=e2338c063cd49188a452094eb0b6f740

相关推荐
likeshop开源商城8 小时前
8款开源AI应用开发平台实测对比
经验分享
likeshop 好像科技11 小时前
市面上的开源 AI 智能体平台使用体验
经验分享
我要学习别拦我~13 小时前
挑战概率直觉:蒙提霍尔问题的解密与应用
经验分享·概率论
浓墨染彩霞14 小时前
Java----set
java·经验分享·笔记
学工科的皮皮志^_^15 小时前
网口学习理解
经验分享·笔记·嵌入式硬件·学习·fpga开发·以太网
聪明的笨猪猪21 小时前
hot 100 (1)—— 两数之和(哈希)
java·经验分享·算法·哈希算法
CNRio1 天前
将word和excel快速转换为markdown格式
python·word·excel
我要学习别拦我~1 天前
雷达图有什么优点与致命缺陷:一把“双刃剑”的可视化武器
经验分享·信息可视化
Xi xi xi1 天前
苏州唯理科技近期也正式发布了国内首款神经腕带产品
大数据·人工智能·经验分享·科技
GJGCY1 天前
技术剖析:智能体工作流与RPA流程自动化的架构差异与融合实现
人工智能·经验分享·ai·自动化·rpa