技术栈

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
相关推荐
玩泥巴的
10 小时前
.NET驾驭Word之力:基于规则自动生成及排版Word文档
c#·word·.net·com互操作
道之极万物灭
11 小时前
Python操作word实战
开发语言·python·word
跳动的喵尾巴
2 天前
Endnote | word中加载项消失不见,如何处理?
word
夜白宋
2 天前
【word多文档docx合并】
java·word
Uluoyu
4 天前
word、pdf文档内容提取工具类
java·pdf·word
sanshizhang
4 天前
word文档转pdf开源免费,可自定义水印
pdf·开源·word
lijingguang
5 天前
excel和word文件默认用office打开而不是用wps
word·excel·wps
Uluoyu
5 天前
支持Word (doc/docx) 和 PDF 转成一张垂直拼接的长PNG图片工具类
java·pdf·word
VBAMatrix
5 天前
报告工具更新!Word附注一键期末转期初
word·办公自动化·审计报告·审计·会计师事务所·报告工具·word附注
恶猫
6 天前
Polaris Officev9.9.12全功能解锁版
pdf·word·excel·ppt·office·办公·打工
热门推荐
01GitHub 镜像站点02BongoCat - 跨平台键盘猫动画工具03UV安装并设置国内源04Linux下V2Ray安装配置指南05GitLab 零基础入门指南:从安装到项目管理全流程06NVIDIA显卡驱动、CUDA、cuDNN 和 TensorRT 版本匹配指南07两千字总结:Codex 国内如何安装和使用的教程,以及如何设置中文回答082025软件测试面试八股文(含答案+文档)09KGG转MP3工具|非KGM文件|解密音频10在VSCode配置Java开发环境的保姆级教程(适配各类AI编程IDE)