Sub SelectTextBeforeWord() Dim start As Long Dim end As Long '将“word”替换为你要选中内容前面的字 start = InStr(1, ActiveDocument.Content, "word") - 1 end = InStr(1, ActiveDocument.Content, "word") '选中文本 ActiveDocument.Range(start, end).Select End Sub改进代码

你可以使用以下代码对之前的 `SelectTextBeforeWord` 进行改进：

Sub SelectTextBeforeWordImproved()
    Dim searchTerm As String
    Dim start As Long
    Dim end As Long
    
    '设置要查找的字符串
    searchTerm = "word"
    
    '查找字符串
    If InStr(1, ActiveDocument.Content, searchTerm) > 0 Then
        '如果找到了字符串，则选中其之前的文本
        start = InStrRev(ActiveDocument.Content, searchTerm) - 1
        end = InStr(1, ActiveDocument.Content, searchTerm)
        ActiveDocument.Range(start, end).Select
    Else
        MsgBox "未找到指定字符串"
    End If
End Sub

这段代码首先定义了一个变量 `searchTerm`，用于设置要查找的字符串。然后使用 `InStr` 函数查找字符串在文档中的位置，如果找到了字符串，则使用 `InStrRev` 函数查找字符串在文档中最后一次出现的位置，并选中其之前的文本。如果没有找到字符串，则弹出一个消息框提示用户未找到指定字符串。

需要注意的是，`InStr` 和 `InStrRev` 函数都是区分大小写的，如果需要忽略大小写，可以使用 `InStr` 函数的 `vbTextCompare` 参数或 `InStrRev` 函数的 `-1` 参数。