word文档批量给图片添加题注

### VBA Code for Batch Adding Captions to Images in Word Document 为了实现批量为Word文档中的图片添加题注的功能，可以使用VBA编写宏程序。以下是具体的代码示例： ```vba Sub AddCaptionsToImages() Dim doc As Document Set doc = ActiveDocument Dim shape As InlineShape For Each shape In doc.InlineShapes If shape.Type = wdInlineShapePicture Then ' 添加题注，默认标签为“图”，位置在下方 Call shape.AddCaption(Label:="图", TitleAutoText:="", Position:=wdCaptionPositionBelow) End If Next shape MsgBox "所有图片已成功添加题注！", vbInformation End Sub ``` 这段代码遍历当前活动文档中的所有内嵌形状对象（`InlineShapes`），如果该对象是图片，则为其添加默认标签为“图”的题注，并设置题注的位置在图片下方。 对于浮动图形（非内嵌形状），则需要处理 `shape` 对象而非 `inlineShape`: ```vba Sub AddCaptionsToFloatingImages() Dim shp As Shape For Each shp In ActiveDocument.Shapes If shp.Type = msoPicture Then ' 浮动图片添加题注 shp.Select Selection.Collapse Direction:=wdCollapseStart ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InsertAfter vbCrLf & _ Application.CaptionLabels("图").Name & " " With Selection .InsertCrossReference ReferenceType:="图", ReferenceKind:= _ wdOnlyLabelAndNumber, ReferenceItem:=shp.Index, InsertAsHyperlink:=False, _ IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " End With Selection.MoveDown Unit:=wdLine, Count:=1 End If Next shp MsgBox "所有浮动图片已成功添加题注！", vbInformation End Sub ``` 此部分代码针对的是浮动类型的图片，通过选择并定位到每张图片前插入相应的题注信息[^1]。