Your second:
With .Font
should be:
With .Replacement.Font
and, despite appearances, the font colour is not black; it's 'Automatic', so you should leave the Find RGB values empty in the Excel workbook.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|