Microsoft Office Forums - View Single Post - VBA to highlight numbers from an excel list

macropod · 04-19-2016, 04:20 PM

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:

Code:

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

with:

Code:

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