issue with highlight macro word 2010

jamesnavoy · #1 01-29-2017, 05:52 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA word macro to highlight a selected text just like a spell checker	Pankaj	Word VBA	1	10-14-2016 03:48 AM
Macro to highlight repeated words in word file and extract into excel file	aabri	Word VBA	1	06-14-2015 07:20 AM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Macro to highlight text between 2 points in word 2010	jsilva1950	Word VBA	2	04-25-2013 12:21 AM
find - reading highlight - highlight all / highlight doesn't stick when saved	bobk544	Word	3	04-15-2009 03:31 PM