It's not apparent from your example that one needs to test the bold attribute. Provided the acronyms consist of two or more capitals, a wildcard Find/Replace should suffice, where:
Find = [ ^s^t](<[A-Z]{2,})
Replace = ^p\1

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