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

Word => Макросы в Word => Тема начата: persik от 29 Май 2021, 16:53

Название: Word VBA Макросы. Как удалить пустые абзацы в таблице с помощью макроса?
Отправлено: persik от 29 Май 2021, 16:53
Как удалить пустые абзацы в таблице, внутри которой находится курсор, с помощью макроса?
Название: Re: Word VBA Макросы. Как удалить пустые абзацы в таблице с помощью макроса?
Отправлено: Администратор от 29 Май 2021, 16:54
Sub Макрос()
   
    With Selection.Tables(1).Range.Find
        .Text = "^13{2;}"
        .Replacement.Text = "^p"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub
Название: Re: Word VBA Макросы. Как удалить пустые абзацы в таблице с помощью макроса?
Отправлено: persik от 29 Май 2021, 17:19
О, да, все работает! Спасибо!