Word VBA Макросы. Как заменить знаки абзацев на пробелы с помощью макроса?

[Peach]

Нужен макрос для замены знаков абзацев на пробелы в выделенном фрагменте текста в Word'е.

[Администратор]

Sub Макрос()
   
    With Selection.Range.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub

[Peach]

Всё убирает, как надо. Спасибо.