Shelly,


Adding this as one of the first process (before adding the quotes) should work:

ResetFRParameters
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = "^p"
While .Execute
oRng.Font.Reset
Wend
End With

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/