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

相关推荐
漂洋过海cv1 天前
Word 插入无页眉页码的空白页(即插入奇数页)
word
response_L1 天前
国产系统统信uos和麒麟v10在线打开word给表格赋值
java·c#·word·信创·在线编辑
ZhangChuChu_92482 天前
Word在生成PDF后,PDF左侧导航书签目录错误显示的解决方法
pdf·word
inxunoffice2 天前
批量将文本文件转换为 Word/PDF/Excel/图片等其它格式
pdf·word·excel
专注VB编程开发20年2 天前
Aspose.words,Aspose.cells,vb.net,c#加载许可证,生成操作选择:嵌入的资源
c#·word·.net·vb.net
专注VB编程开发20年2 天前
无需安装Office进行 Word、Excel操作的微软开发库
microsoft·word·excel
Ljugg3 天前
把doi直接插入word中,然后直接生成参考文献
开发语言·c#·word
2501_907136823 天前
OfficeAI构建本地办公生态:WPS/Word双端联动,数据自由流转
人工智能·word·wps
快乐点吧3 天前
【Word】批注一键导出:VBA 宏
开发语言·c#·word
seasonsyy4 天前
怎么把wps中的word的批注全部删掉
word·wps