Удалить разрыв раздела перед таблицей
Добавлено: 22 авг 2009, 14:40
Добрый день!
Не подскажите, как можно удалить c помощью VBA разрыв раздела, представленный в файле. На словах тяжело объяснить.
Заранее спасибо.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Вот такой код придумал. Кому нравится?
Всем спасибо, все свободны.
Не подскажите, как можно удалить c помощью VBA разрыв раздела, представленный в файле. На словах тяжело объяснить.
Заранее спасибо.
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Вот такой код придумал. Кому нравится?
Код: Выделить всё
Sub main()
Application.ScreenUpdating = False
Selection.WholeStory
With Selection.Find
.ClearFormatting
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Text = "^b"
.Execute
.Text = ""
End With
Selection.Delete
Application.ScreenUpdating = True
End Sub