Word VBA技术问题：查找文本后如何返回前置书签名称

我明白你的困扰——原代码里的BookmarkID只能返回直接包含搜索文本的书签，但当目标文本夹在两个书签之间时，这个方法就没法帮你找到前面那个最近的书签了。咱们换个思路：遍历所有书签，找出位置在搜索文本之前且距离它最近的那个。

修正后的代码 #

Public Sub FindPreviousBookmark()
    Dim wrdThis As Document
    Dim strSearch As String
    Dim myRange As Range
    Dim bkmk As Bookmark
    Dim closestBkmk As Bookmark
    Dim searchStartPos As Long
    
    Set wrdThis = ThisDocument
    Set myRange = wrdThis.Content
    strSearch = "ID: VTER" ' 你要查找的目标文本
    
    ' 执行文本查找
    myRange.Find.Execute FindText:=strSearch, Forward:=True
    If myRange.Find.Found Then
        searchStartPos = myRange.Start ' 记录搜索到的文本的起始位置
        
        ' 遍历所有书签，寻找最近的前置书签
        For Each bkmk In wrdThis.Bookmarks
            ' 检查书签的结束位置是否在搜索文本之前
            If bkmk.Range.End < searchStartPos Then
                ' 如果是第一个符合条件的书签，或者比当前记录的书签更接近目标文本
                If closestBkmk Is Nothing Or bkmk.Range.End > closestBkmk.Range.End Then
                    Set closestBkmk = bkmk
                End If
            End If
        Next bkmk
        
        ' 输出结果
        If Not closestBkmk Is Nothing Then
            MsgBox "搜索文本的前置书签是: " & closestBkmk.Name
        Else
            MsgBox "未找到任何前置书签"
        End If
    Else
        MsgBox "未找到目标文本: " & strSearch
    End If
    
    ' 释放对象
    Set myRange = Nothing
    Set wrdThis = Nothing
    Set closestBkmk = Nothing
End Sub

代码关键说明 #

• 记录搜索位置：用myRange.Start获取目标文本的起始位置，作为判断书签位置的基准。
• 遍历书签筛选：逐个检查每个书签的结束位置，如果它在目标文本之前，就进入候选列表。
• 找到最近的书签：在候选书签里，始终保留结束位置最大的那个（也就是距离目标文本最近的前置书签）。
• 边界处理：如果目标文本之前没有任何书签，会弹出提示告诉你这一点；如果没找到目标文本也会给出提示。

这个方法不管你的目标文本是在书签内部还是两个书签之间，都能准确找到它前面最近的那个书签～

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