You don't actually need a macro for that - you could do it using just Find/Replace. Takes just a few seconds that way. Simply set the Find to look for a bold font and, for the Replace expression, use:
^&^t

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