VBA to highlight numbers from an excel list

[mbesspiata3]

I have inventory count sheets with inventory numbers which is in ms word and I need to take a long list of inventory numbers from an excel spreadsheet and by using VBA highlight those number on the ms word document.
Is that possible?



Thanks

Mike

[macropod]

For a bulk Find/Replace that uses an Excel workbook as the data source, see: https://www.msofficeforums.com/word/...html#post34254
With that code, you could simply delete the line:
xlRList = xlRList & "|" & Trim(.Range("B" & i))
and replace:

        For i = 1 To UBound(Split(xlFList, "|"))
          .Text = Split(xlFList, "|")(i)
          .Replacement.Text = Split(xlRList, "|")(i)
          .Execute Replace:=wdReplaceAll
        Next

with:

        .Format = True
        .Replacement.Highlight = True
        .Replacement.Text = "^&"
        For i = 1 To UBound(Split(xlFList, "|"))
          .Text = Split(xlFList, "|")(i)
          .Execute Replace:=wdReplaceAll
        Next