You don't need a macro for that - you can do it via Find Replace, where you specify the font colour as the Find parameter and use ^&^p as the Replace expression.

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