Following the last Next I inserted:[VBA] arrWords = Array("very")
.Replacement.Highlight = True
.Replacement.Font.Color = wdColorLightBlue
For i = 0 To UBound(arrWords)
.Text = arrWords(i)
.Execute Replace:=wdReplaceAll
Next
[/VBA]The result's apparent: the font colour changed to light blue, NOT touching the highlight colour. Not quite, but very close to what I'm seeking. Still a very inefficient way, I'm sure; yet the best I can think of for now. Thanks again!