嘿，我刚好处理过几乎一模一样的需求——把从HTML导入Word的图片自带的Title属性（就是你说的「设置图片格式」里的替代文本描述）批量转成图片的标题，用VBA宏完全可以搞定，下面是适配Word 2010的完整方案：

步骤1：打开VBA编辑器并插入宏 #

1. 打开已经导入HTML的Word文档，按下 Alt + F11 打开VBA编辑器
2. 在左侧「工程」面板里，右键点击你的文档名称，选择「插入」>「模块」
3. 将下面的代码粘贴到模块窗口中：

Sub ConvertImageTitleToCaption()
    Dim doc As Document
    Dim inlineShape As InlineShape
    Dim shape As Shape
    Dim captionText As String
    
    Set doc = ActiveDocument
    
    ' 处理嵌入式图片（InlineShape）
    For Each inlineShape In doc.InlineShapes
        ' 检查是否是图片类型，并且有替代文本描述
        If inlineShape.Type = wdInlineShapePicture Then
            captionText = inlineShape.AlternativeText
            If captionText <> "" Then
                ' 在图片下方插入标题
                inlineShape.Range.Select
                Selection.MoveDown Unit:=wdLine, Count:=1
                Selection.TypeText Text:="图 " & inlineShape.Index & ": " & captionText
                ' 可选：设置标题样式为内置的「题注」样式
                Selection.Style = ActiveDocument.Styles("题注")
            End If
        End If
    Next inlineShape
    
    ' 处理浮动式图片（Shape）
    For Each shape In doc.Shapes
        If shape.Type = msoPicture Then
            captionText = shape.AlternativeText
            If captionText <> "" Then
                ' 在图片下方插入标题
                shape.Select
                Selection.MoveDown Unit:=wdLine, Count:=1
                Selection.TypeText Text:="图 " & shape.Index & ": " & captionText
                Selection.Style = ActiveDocument.Styles("题注")
            End If
        End If
    Next shape
    
    MsgBox "批量转换完成！共处理了 " & (doc.InlineShapes.Count + doc.Shapes.Count) & " 个对象", vbInformation
End Sub

代码细节说明 #

• 同时兼容嵌入式图片（InlineShape）和浮动式图片（Shape）：HTML导入Word后图片可能以两种形式存在，所以都做了处理
• 自动跳过无Title属性的图片：如果替代文本为空，不会生成空标题
• 自动添加编号和标题样式：默认用「图 X: 描述文本」的格式，并且套用Word内置的「题注」样式，你可以根据需求修改格式
• 完成后弹出提示框，告诉你处理的对象总数

步骤2：运行宏 #

1. 回到Word主界面，按下 Alt + F8 打开宏对话框
2. 选中 ConvertImageTitleToCaption 这个宏，点击「运行」

可选调整 #

如果你不需要自动编号，或者想自定义标题格式，只需要修改代码里的标题文本行即可。比如改成纯文本标题：

Selection.TypeText Text:=captionText

内容的提问来源于stack exchange，提问作者Rick Hellewell