Форум по VBA, Excel и Word

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

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

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