If you don't want some replaced terms to be replaced by later F/R operations, then you need to ensure the order of the various F/R expressions are listed in the correct order.

If you only want to process whatever is selected, change:
With ActiveDocument.Range.Find
to:
With Selection.Range.Find

If you only want to process a particular font (Arial), change:
.Format = False
to:
.Format = True
.Font.Name = "Arial"

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