Автор Тема: Word VBA Макросы. Как удалить пустые абзацы в таблице с помощью макроса?  (Прочитано 177 раз)

Оффлайн persik

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

Оффлайн Администратор

  • Administrator
  • Сообщений: 1866
Sub Макрос()
   
    With Selection.Tables(1).Range.Find
        .Text = "^13{2;}"
        .Replacement.Text = "^p"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
О, да, все работает! Спасибо!