Hi, Gmaxey! I was trying to use part of your code, but I failed somehow. I cannot force it to insert the new line. Thanks!
Code:
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = " (about"
.Replacement.Text = ""
If .Execute Then MsgBox "Found"
If .Execute Then oRng.InsertBefore "^l"
End With