Word VBA如何用Selection.Find查找数组内任意值的下一个匹配项

Word 原生的Selection.Find方法不支持直接传入数组作为匹配文本，无法通过类似selection.find.text = array(0 to UBound)的写法直接实现需求，可通过遍历检索词、比对匹配位置的方式实现定位当前选区后最近匹配项的效果。

实现逻辑 #

• 记录当前选区/光标的结束位置作为搜索起点，仅检索起点之后的内容，避免匹配光标前的历史内容
• 遍历拆分得到的检索词数组，逐个查找每个检索词在起点之后的第一个匹配项，记录匹配位置
• 过滤无匹配结果的检索词，在所有有效匹配位置中选取起始位置最靠前（即离当前光标最近）的项
• 选中该最近匹配项，若所有检索词都无匹配则给出提示

可直接运行的示例代码 #

Sub FindNextNearestMatch()
    Dim myString As String
    Dim myArray() As String
    Dim searchStart As Long
    Dim i As Long
    Dim currentMatchPos As Long
    Dim nearestPos As Long
    Dim nearestTarget As String
    
    ' 替换为你实际的检索源字符串即可
    myString = "a, b, c"
    myArray = Split(myString, ", ")
    
    ' 初始化搜索起点、最近位置初始值设为文档末尾之后
    searchStart = Selection.End
    nearestPos = ActiveDocument.Content.End + 1
    
    ' 遍历所有检索词查找匹配
    For i = LBound(myArray) To UBound(myArray)
        ' 每次查找前先把选区重置到搜索起点，避免上一次查找偏移位置
        Selection.SetRange Start:=searchStart, End:=searchStart
        With Selection.Find
            .ClearFormatting
            .Text = myArray(i)
            .Forward = True
            .Wrap = wdFindStop ' 到文档末尾即停止，不绕回开头
            .MatchCase = False ' 可按需调整为True开启大小写匹配
            .MatchWholeWord = False ' 可按需调整为True开启全字匹配
        End With
        
        If Selection.Find.Execute Then
            currentMatchPos = Selection.Start
            ' 比对位置，更新最近匹配记录
            If currentMatchPos < nearestPos Then
                nearestPos = currentMatchPos
                nearestTarget = myArray(i)
            End If
        End If
    Next i
    
    ' 最终定位到最近的匹配项
    Selection.SetRange Start:=searchStart, End:=searchStart
    If nearestPos <= ActiveDocument.Content.End Then
        Selection.Find.Text = nearestTarget
        Selection.Find.Execute
    Else
        MsgBox "已检索到文档末尾，无匹配结果"
    End If
End Sub

使用说明 #

• 将代码中myString的赋值替换为你实际的前置检索字符串即可，数组拆分逻辑和你原有写法完全一致
• 可将该宏绑定到自定义快捷键，每次触发就会从当前光标位置向后查找最近的数组成员匹配项
• 可根据检索需求调整Find对象的匹配参数，比如是否区分大小写、是否全字匹配、是否匹配通配符等

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