Words VBA:使用搜索到的单词的位置创建范围

Sub CreateRangeFromSearchedWord()
    Dim searchWord As String
    Dim searchRange As Range
    Dim foundRange As Range
    
    ' 设置要搜索的单词
    searchWord = "example"
    
    ' 设置要搜索的范围
    Set searchRange = ActiveDocument.Content
    
    ' 使用Find方法搜索单词
    With searchRange.Find
        .Text = searchWord
        .Forward = True
        .Wrap = wdFindStop
        .Execute
    End With
    
    ' 检查是否找到了单词
    If searchRange.Find.Found Then
        ' 创建新的范围，表示搜索到的单词所在的位置
        Set foundRange = ActiveDocument.Range(searchRange.Start, searchRange.End)
        
        ' 在此处可以对搜索到的范围进行操作
        ' 例如，可以修改文本样式、插入内容等
        
        ' 打印搜索到的范围的文本内容
        MsgBox foundRange.Text
    Else
        MsgBox "未找到指定的单词。"
    End If
End Sub