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中所有表格都添加了题注!

相关推荐
玩泥巴的1 天前
.NET驾驭Word之力:理解Word对象模型核心 (Application, Document, Range)
word·二次开发·office·com互操作
玩泥巴的2 天前
.NET驾驭Word之力:COM组件二次开发全攻略之连接Word与创建你的第一个自动化文档
word·二次开发·com互操作
辣香牛肉面3 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
FlYFlOWERANDLEAF4 天前
DevExpress中Word Processing Document API学习记录
学习·c#·word
AnySpaceOne5 天前
PDF转Word在线转换教程:多种实用方法分享
学习·pdf·word
我命由我123456 天前
Word - Word 的 5 种视图(页面视图、阅读视图、Web 版式视图、大纲视图、草稿视图)
ui·word·excel·photoshop·表格·ps·美工
XYZLHL6 天前
Word怎么设置页码总页数不包含封面和目录页
word
传而习乎6 天前
Word添加图/表题注
word
YAY_tyy6 天前
基于 Vue3 + VueOffice 的多格式文档预览组件实现(支持 PDF/Word/Excel/PPT)
前端·javascript·vue.js·pdf·word·excel