Originally Posted by macropod

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.