You really don't need a macro for that - all you need is a wildcard Find/Replace, where:
Find = “[!”]@”
Replace = ^&
and you set the replacement font attributes to whatever expanded setting you desire.

The above Find/Replace expression assumes you've used smart quotes. If you're not using those, try:
Find = "[!"]@"

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