Hi guys, I'm looking for help with a simple find and highlight words macro. this macro i was trying out seems to only be able to highlight with the currently active highlighted color, not the replacement color mentioned in the macro so I was wondering why that might be happening? and secondly i would like to do 3 set of the same routine, different colors for different words. how do i ammend this to achieve it please?
Code:
Sub ListChange()
Dim r As Range
Dim MyList() As String
Dim i As Long
MyList = Split("challenging,difficult,down by,", ",")
For i = 0 To UBound(MyList())
Set r = ActiveDocument.Range
With r.Find
.Text = MyList(i)
.Replacement.Highlight = wdGreen
.Execute Replace:=wdReplaceAll
End With
Next
End Sub