单词VBA - 通过查找文本返回书签

Question

我正在尝试使用Microsoft Word文档编写一些VBA，该文档将在其中搜索文本字符串，一旦找到它，将返回前面的书签名称。

我目前有以下代码;

Public Sub FindDocument()
Dim wrdThis As Document
Dim strSearch As String
Dim myRange As Range
Dim lngBookMark As Long
Dim lngHeadingName As Long
Dim varBookmarks As Variant
Dim i As Integer
Set wrdThis = ThisDocument
Set myRange = wrdThis.Content
strSearch = "ID: VTER"
varBookmarks = wrdThis.GetCrossReferenceItems(wdRefTypeBookmark)
myRange.Find.Execute FindText:=strSearch, Forward:=True
If myRange.Find.Found = True Then
    lngBookMark = myRange.BookmarkID
    MsgBox "Search text found in bookmark " & varBookmarks(lngBookMark)
End If
End Sub

我似乎无法让代码返回前面书签的唯一标识符，因为我正在搜索的文本将在 2 个书签之间找到。

任何帮助将不胜感激。

Answer 1

实际上，获取书签的唯一方法是从 Range 中查询它们。在您的情况下，您需要从找到的范围向后。最简单的方法是将范围设置回文档的开头，然后选取最后一个书签。以下基于原始代码的代码示例对此进行了说明。

请注意，我已将"此文档"更改为"活动文档"。此文档是 VBA 代码所在的文档对象。我假设您希望代码在当前正在处理的任何文档上运行？在这种情况下，活动文档是正确的。

Sub FindThenPrevBookmark()
    Dim wrdThis As Document
    Dim strSearch As String
    Dim myRange As Range, rngToStart As word.Range
    Dim bkm As word.Bookmark
    'Dim lngBookMark As Long
    'Dim lngHeadingName As Long
    'Dim varBookmarks As Variant
    'Dim i As Integer
    Set wrdThis = ActiveDocument
    Set myRange = wrdThis.content
    strSearch = "Home"
    'Ensure that Execute and Found are performed on the same FIND
    With myRange.Find
        .Execute findText:=strSearch, Forward:=True
        If .found = True Then
            'Always use DUPLICATE to "copy" a Range object!
            Set rngToStart = myRange.Duplicate
            rngToStart.Start = wrdThis.content.Start
            If rngToStart.Bookmarks.Count > 0 Then
                Set bkm = rngToStart.Bookmarks(rngToStart.Bookmarks.Count)
                MsgBox "Search text found in bookmark " & bkm.Name
            End If
        End If
    End With
End Sub