Используйте слово подстановочный знак Поиск / замена, где:
Find = ([!^13]@)^13
Replace = Before Text \1 After text^p
, и вы задаете атрибуты шрифта как часть параметров поиска. Код не требуется, хотя вы можете использовать макрос, если вы действительно этого хотите - макрос-рекордер будет воспроизводить параметры F / R.