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
--
Enjoy,
Tony
> how can i change color for example font.color = wdColorRed
> for the text i replace?
[quoted text clipped - 13 lines]
>
> tia Marco
MarcoPolo - 14 Feb 2006 19:12 GMT
Cool, i didnt find replacement.font.color
Thanks!
> Just add a line ...
>
[quoted text clipped - 31 lines]
>>
>> tia Marco