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

相关推荐
赵谨言5 小时前
基于物联网的智能家居控制系统设计与实现
经验分享·毕业设计
ONETHING_CLOUD_210 小时前
手机能用酒精擦吗?
经验分享·科技·智能手机·数码·实用技巧分享
IT摆渡者16 小时前
网络安全护网实战:攻击手段解析与防御策略
运维·网络·经验分享
Dxy123931021616 小时前
word中的单位详解
word
大刘讲IT1 天前
精益管理与数字化转型的融合:中小制造企业降本增效的双重引擎
经验分享·程序人生·制造·传媒·零售·交通物流
java攻城狮k2 天前
【跟着PMP学习项目管理】项目管理 之 成本管理知识点
经验分享·笔记·学习·产品经理
无妄-20242 天前
软件架构升级中的“隐形地雷”:版本选型与依赖链风险
java·服务器·网络·经验分享
树叶@3 天前
快速上手百宝箱搭建知识闯关游戏助手
经验分享
西西弗Sisyphus3 天前
如果让计算机理解人类语言- Word2Vec(Word to Vector,2013)
人工智能·word·word2vec