font color

[MarcoPolo]

how can i change color for example font.color = wdColorRed
for the text i replace?

like this

Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Text = strfind
.Replacement.Text = strReplace
.Execute Replace:=wdReplaceAll

....


end with


tia Marco

 

[Tony Jollans]

Just add a line ...

Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
.Text = strfind
.Replacement.Text = strReplace
.Replacement.Font.Color = wdColorRed ' <====== Added
.Execute Replace:=wdReplaceAll

....


end with

 

[MarcoPolo]

Cool, i didnt find replacement.font.color
Thanks!