Word VBA Макросы. В таблице удалить знак абзаца после точки.

[Peach]

Как в выделенном фрагменте, который находится внутри таблицы, удалить знаки абзацев после точки?

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

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

[Peach]

Прекрасно! Отлично работает! Спасибо!