This is why I like to do most of my reformatting in Word where a VBA macro takes care of all these possibilities. It lets me string together a series of Find-Replace operations and set Styles. In the case of 'Mr.', yes, I've had that occur so added a Find-Replace to correct it:
With Selection.Find
.Text = "Mr.^p"
.Replacement.Text = "Mr."
|