Word VBA：如何扩展图片题注书签标签范围以修复交叉引用？

我的Word文档里图片交叉引用显示异常，只出部分图名：Figure 5-。排查后发现对应书签范围太窄，完整图名是[Figure 5-] 62: Caption text，但书签只覆盖了「Figure 5-」部分。想用VBA把书签范围扩展到冒号处，现有代码如下，求完善：

Sub extend_bookmarks()

    Dim bmk As Bookmark
    Dim msg As String
    Dim pos As Integer
    
    For Each bmk In ActiveDocument.Range.Bookmarks


            If (InStr(1, bmk.Range.Text, "Figure") And IsNumeric(Mid(bmk.Range.Text, 8, 1))) Then
                pos = InStr(1, bmk.Range.Text, ":")
                If ((pos < 12) And (pos > 0)) Then
                    Debug.Print bmk.Name
                    Debug.Print bmk.Range.Text
                    Debug.Print bmk.End - bmk.Start; pos
                End If
            End If

    Next bmk

End Sub

修正后的VBA代码 #

Sub extend_bookmarks()
    Dim bmk As Bookmark
    Dim targetRange As Range
    Dim pos As Integer
    
    ' 遍历文档中所有书签
    For Each bmk In ActiveDocument.Bookmarks
        ' 筛选出包含"Figure"且第8位为数字的书签（匹配图标题格式）
        If InStr(1, bmk.Range.Text, "Figure") > 0 And IsNumeric(Mid(bmk.Range.Text, 8, 1)) Then
            ' 复制书签范围，避免修改时干扰原书签遍历
            Set targetRange = bmk.Range.Duplicate
            
            ' 从书签结束位置开始查找冒号，确保定位到当前图标题的冒号
            pos = InStr(targetRange.End, ActiveDocument.Range, ":")
            
            If pos > 0 Then
                ' 将目标范围扩展到冒号位置（包含冒号）
                targetRange.End = pos
                
                ' 删除原书签，避免重名冲突
                bmk.Delete
                
                ' 用新范围重新创建同名书签
                ActiveDocument.Bookmarks.Add Name:=bmk.Name, Range:=targetRange
                
                Debug.Print "已扩展书签: " & bmk.Name & " 至冒号位置"
            End If
        End If
    Next bmk
End Sub

关键说明 #

• 复制书签的Range对象再修改：直接操作原书签范围会导致遍历过程中书签位置错乱
• 从书签结束位置查找冒号：避免匹配到文档中其他无关的冒号
• 先删原书签再重建：Word不允许存在同名书签，必须先删除原书签才能用新范围创建同名书签

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