Word表格批量添加题注代码

操作步骤

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

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

F5运行,word中所有表格都添加了题注!

相关推荐
东方佑9 小时前
使用Python创建带边框样式的Word表格
数据库·python·word
Lxinccode12 小时前
Java查询数据库表信息导出Word
word·数据库信息导出为word文档
振宇i1 天前
Java 富文本转word
java·word·富文本·docx4j
南博萬2 天前
java将pdf转换成word
java·pdf·word
zhishishe3 天前
2025 年免费 Word 转 PDF 转换器有哪些?
android·windows·pdf·电脑·word
神奇侠20243 天前
基于PaddleOCR对图片中的excel进行识别并转换成word(一)
python·word·excel·paddleocr
zhishishe3 天前
工具指南:免费将 PDF 转换为 Word 的 10 个工具
android·windows·pdf·word
zhishishe4 天前
Word技巧:如何在 Mac 和 Windows 上检索未保存的 Word 文档
windows·macos·word
usdoc文档预览5 天前
Office文件内容提取 | 获取Word文件内容 |Javascript提取PDF文字内容 |PPT文档文字内容提取
javascript·pdf·word·ppt·office文件在线预览·word文档在线预览·ofd预览转pdf
AI偶然5 天前
AI智能体|扣子(Coze)搭建【一键转换为Word/pdf/Excel】工作流保姆级教学
人工智能·pdf·word