word批量添加题注有四种方法：一、用“查找替换”定位对象后粘贴更新题注；二、通过自定义样式+seq域代码批量生成并刷新；三、运行vba宏自动为所有内联图片添加编号题注；四、利用seq域与预设标签实现编号延续。
如果您在Word文档中需要为大量图片、表格或图表统一添加题注，手动逐个插入会耗费大量时间。以下是实现Word批量添加题注的多种可行方法：
一、使用“插入题注”配合“查找替换”定位对象
该方法适用于已插入但未添加题注的图片或表格，通过通配符定位对象后批量插入题注。
1、按Ctrl+H打开“查找和替换”对话框，点击“更多”展开选项，勾选“使用通配符”。
2、在“查找内容”中输入：^13{1,}（代表段落标记后连续多个空行，用于定位独立对象位置）。
3、将光标置于第一个待加题注的对象下方空白行，点击“插入”→“题注”，设置标签（如“图”）、编号格式及位置。
4、选中已插入的题注，复制；回到查找结果处，逐个定位到每个对象下方空白行，粘贴并更新编号字段（右键→“更新域”）。
二、利用样式+题注域代码批量生成
通过为所有待加题注的对象统一应用指定样式，并结合域代码自动编号，可实现一次性批量生成题注。
1、选中第一个图片，点击“开始”→“样式”→“新建样式”，命名为“CaptionTarget”，仅设为“段落”样式，不设格式。
2、在该图片下方插入一个空段落，应用“CaptionTarget”样式。
3、在该段落中插入域代码：按Ctrl+F9输入花括号，键入{ SEQ Figure \* ARABIC }，然后手动添加“图”字和标点，形成“图1。”。
4、选中该域代码，按F9更新；复制此段落，粘贴至其余每个对象下方，并确保每处均应用“CaptionTarget”样式。
5、全选文档，按F9刷新全部域，所有题注编号将自动顺序排列。
三、通过VBA宏一键为所有图片添加题注
该方法可全自动识别文档内所有嵌入式图片，在其下方插入带自动编号的题注，无需人工定位。
1、按Alt+F11打开VBA编辑器，插入→模块，粘贴以下代码：
Sub AddCaptionToAllPictures()
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
.Range.Collapse Direction:=wdCollapseEnd
.Range.InsertParagraphAfter
.Range.Next(wdParagraph, 1).Range.InsertCaption Label:="图", TitleAutoTextEntry:="", Title:="", Position:=wdCaptionPositionBelow
End With
Next i
End Sub
2、关闭编辑器，返回Word，按Alt+F8，选择“AddCaptionToAllPictures”，点击“运行”。
3、运行完成后，文档中所有内联图片下方将自动生成“图1”“图2”等连续编号题注。
四、借助“交叉引用”与“题注”标签组合批量插入
适用于已有部分题注、需为新增对象延续编号的情况，通过预设标签统一管理编号序列。
1、先插入一个临时题注：点击“引用”→“插入题注”，新建标签“表-新”，编号格式设为“1,2,3…”。
2、删除该临时题注文字，仅保留其背后的域代码（选中后按Shift+F9显示域代码）。
3、将光标置于每张新表格下方，按Ctrl+F9插入花括号，输入：{ SEQ "表-新" \* ARABIC }。
4、在域代码前手动输入“表”，后加中文句号，形成“表1。”；全部录入后，全选按F9更新域。
