Word表格批量添加题注代码

操作步骤

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

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

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