You don't need a macro for this, either. All you need do is create the first field, with the required formatting, then cut it to the clipboard and use Find/Replace, where:
Find = ^b
Replace = ^c^&

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