underlining in word

i am looking for text in the word doc and then underlining it. it underlines but i cannot get the color to change from automatic this is what i am doing :

With ActiveDocument.Range.find
.Text = errortxt
.MatchWholeWord = True
.Replacement.Font.Underline = wdUnderlineWavy
'i tried this
.Font.UnderlineColor = wdColorRed
'and this
.Replacement.Font.UnderlineColor = wdColorRed
.Execute replace:=wdReplaceAll
End With

and neither work.
this works
ActiveDocument.Range.Font.UnderlineColor = wdColorRed

but that changes the colour of every underline in the document, which is not what i want

any suggestions??

Try Or'ing your constants together.

VB Code:

.Replacement.Font.Underline = wdUnderlineWavy Or wdColorRed