Originally Posted by macropod

You could try a wildcard Find/Replace, where:
Find = <[ivxlc]{1,}.[!^13]@^13
Repalce = ^&
and you set the replacement highlight attribute. Note that the highlight will be whatever Word's current setting is.