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

[Peach]

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

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

Sub Макрос()
   
    With Selection.Tables(1).Range.Find
        .Text = "^13{2;}"
        .Replacement.Text = "^p"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub

[Peach]

О, да, все работает! Спасибо!