Sub replace() ActiveDocument.Content.Find.Execute FindText:="^p^p", ReplaceWith:="^p", _ replace:=wdReplaceAll End Sub