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

Автор persik, 29 мая 2021, 16:53

persik

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

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

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

persik