The Macro was recorded automatically by word but doesn't work because of a "syntax error" what can it be?

Sub Makro2()
'
' Makro2 Makro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text Dialog "^p"
.Replacement.Text Dialog " "
.Forward Dialog True
.Wrap Dialog wdFindContinue
.Format Dialog False
.MatchCase Dialog False
.MatchWholeWord Dialog False
.MatchWildcards Dialog False
.MatchSoundsLike Dialog False
.MatchAllWordForms Dialog False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub