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

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

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

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