Word表格批量添加题注代码

大白曰梦想家2024-12-26 13:41

操作步骤

打开word，点击"开发工具"，进入Visual Basic，点击"Normal",右键，插入"模块"。输入代码如下：

c 复制代码

Sub 批量添加表格题注()
For i = 1 To ActiveDocument.Tables.Count
    ActiveDocument.Tables(i).Range.InsertCaption "表", , , 0
Next
End Sub

F5运行，word中所有表格都添加了题注！

上一篇：[手机Linux] 七，NextCloud优化设置

下一篇：CSS学习记录20

热门推荐

01大模型国产化适配7-华为昇腾LLM落地可选解决方案（MindFormers、ModelLink、MindIE）02Ubuntu 20.04使用Livox mid 360 测试 FAST_LIO 03玄机平台应急响应—webshell查杀 04电赛2024年H题智能小车基于MSPM0G3507主控MCU（利用8路灰度加上MPU6050的解决方式）具体项目报告 05组基轨迹建模 GBTM的介绍与实现（Stata 或 R）06支付宝短视频平台创作分成激励项目 07STM32 无法烧录 08【一文读懂】NTN（非地面网络）技术介绍 09优化手机性能，解决卡顿问题：关闭这3个微信开关，释放内存空间 10怎么找小红书美食探店博主合作？