If you want to approach it that way, you'd add:
.Highlight = True
and change:
.Replacement.Highlight = True
to:
.Replacement.Highlight = False
No other changes should be required. The ClearFormatting code clears any format conditions left over from previous Find/Replace instructions - it has no effect on the document content.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|