Greg thanks.
Could you explain it to me, just so I will know. I get the
.Replacement.Text = "^p"

But what is

Dim oRng As Word.Range Set oRng = ActiveDocument.Range With oRng.Find .ClearFormatting .Text = "^13{2,}"