How can I search a word document using more than one term at a time?

Option Explicit

Sub FindMultiple()
    
    Dim xlApp As Excel.Application
    Dim xlWbk As Excel.Workbook
    Dim xlWks As Excel.Worksheet
    
    Dim wrdRange As Word.Range
    
    Dim r As Integer 'row/record counter
    Dim c As Integer 'column counter
    Dim strNumber As String
    Dim strFolder As String
    Dim strWorkbook As String
    
    
    strFolder = "I:\Allwork\ee\29085446\"
    strWorkbook = "NumberList.xlsx"
    
    'Get Excel application
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    
    
    Set xlWbk = xlApp.Workbooks.Open(filename:=strFolder & strWorkbook, ReadOnly:=True)
    Set xlWks = xlWbk.Sheets(1)
    
    c = 1
    r = 2
    
    strNumber = xlWks.Cells(r, c).Value
    Do While IsNumeric(strNumber)
        Set wrdRange = ActiveDocument.Range
        With wrdRange.Find
            .Text = strNumber
            .MatchWholeWord = True
            Do While .Execute
                MsgBox strNumber & " found on page " & wrdRange.Information(wdActiveEndPageNumber)
            Loop
        End With
        r = r + 1
        strNumber = xlWks.Cells(r, c).Value
    Loop

    'tidy up
    xlWbk.Close False
    xlApp.Quit
    
End Sub

Select allOpen in new window