操作步骤 打开word,点击“开发工具”,进入Visual Basic,点击“Normal”,右键,插入“模块”。输入代码如下: Sub 批量添加表格题注() For i = 1 To ActiveDocument.Tables.CountActiveDocument.Tables(i).Range.InsertCaption "表", , , 0 Next End Sub F5运行,word中所有表格都添加了题注!