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

Sub FindTextAndReturnBookmark()
    Dim searchText As String
    Dim bookmarkName As String
    
    ' 设置要查找的文本
    searchText = "要查找的文本"
    
    ' 在整个文档中查找文本
    With ActiveDocument.Content.Find
        .Text = searchText
        .Execute
        
        ' 如果找到了文本，则返回第一个匹配项的书签名
        If .Found Then
            bookmarkName = .Parent.Bookmarks(1).Name
            MsgBox "找到了文本，并返回了书签名：" & bookmarkName
        Else
            MsgBox "未找到指定的文本"
        End If
    End With
End Sub