Hello,



I have many files with both colored (many different colors) and black (automatic) text and I want to replace to “hidden” all colored characters. It seems simple enough but, beyond being new to VBA, I just can’t get it to work. I’m using

If (.Color <> wdColorAutomatic) And _
(.Color <> wdColorBlack) Then

In my code. It seems to be a feasible way to go but. . .

Any help and/or advice would be greatly appreciated.

Thank you in advance.

The simplest way to go about this in a multi-colour document is to first hide all text, then use Find/Replace to unhide just the colour(s) you're interested in. If there's more than one colour to unhide, you'd do them sequentially.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you, Macropod!

I'll try that and will let you know.

Best regards.

Indeed, it worked like a charm!

Thanks again, Macropod; your help is much appreciated!