已实现交叉引用高亮，如何用Word VBA定位被引用图片题注

首先明确：Word对象模型里的InlineShape并没有Caption相关属性，你之前尝试的InlineShapes.Caption、InlineShape.Text等都是无效的——因为图片题注本质是独立的段落内容，通常由wdFieldSeq（序列字段）配合题注标签生成，和图片属于不同的Range对象。

以下是修改后的代码，在保留你原有高亮交叉引用功能的基础上，实现定位并标记图片题注：

Sub ReferenceHighlightAndFindCaptions()
    Dim docRange As Range
    Set docRange = ActiveDocument.Range
    
    Dim fld As Word.Field
    Dim image As InlineShape
    Dim captionPara As Paragraph
    Dim captionFld As Word.Field
    
    ' 遍历所有图片，定位对应的题注
    For Each image In docRange.InlineShapes
        ' 情况1：题注与图片在同一段落
        Set captionPara = image.Range.Paragraphs(1)
        ' 检查段落内的序列字段（题注核心标识）
        For Each captionFld In captionPara.Range.Fields
            If captionFld.Type = wdFieldSeq Then
                ' 高亮题注段落
                captionPara.Range.HighlightColorIndex = wdTurquoise
                GoTo NextImage ' 找到题注就跳过后续检查
            End If
        Next captionFld
        
        ' 情况2：题注在图片的下一段落
        If captionPara.Next Is Nothing Then GoTo NextImage ' 避免文档末尾越界
        Set captionPara = captionPara.Next
        For Each captionFld In captionPara.Range.Fields
            If captionFld.Type = wdFieldSeq Then
                captionPara.Range.HighlightColorIndex = wdTurquoise
                Exit For
            End If
        Next captionFld
        
NextImage:
        ' 可选：保留删除图片的逻辑，按需注释/取消注释
        ' image.Delete
    Next image
    
    ' 原有高亮交叉引用的逻辑
    For Each fld In docRange.Fields
        If fld.Type = wdFieldRef Then
             fld.Result.HighlightColorIndex = wdYellow
        End If
    Next fld
End Sub

关键说明 #

• 题注的核心标识是wdFieldSeq字段，Word自带的题注功能会自动插入这个字段生成连续编号
• 代码覆盖了两种常见的题注排版：和图片同一段、在图片下一段，可根据实际文档的排版调整逻辑
• 若不需要删除图片，直接注释掉image.Delete即可

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