You don't need a macro for that. It can all be done with a wildcard Find/Replace, where:
Find = In particular to [!:]@:
Replace = ^&
with the Replace formatted to apply underlining.

To access the wildcard and formatting Find/Replace options, click on the Find/Replace dialog's 'More' button.

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