[Helmut Weber]

Hi Greg In Atl,

like this:

Sub T5()
If Selection.Type = wdSelectionIP Then Exit Sub
With Selection.Range.Find
.Text = "^p"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
End With
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"