Удаление строки по найденному слову (Word)
Добавлено: 12 дек 2009, 08:05
Вот этот макрос удаляет не все строки: после его применения - его надо повторно запускать. Что в коде не так?
Документ около 2 тыс. страниц. Строки остаются по всему документу мелкими скоплениями по 2-3.
Код: Выделить всё
Sub DeleteLine()
Dim DeleteLine As String
DeleteLine = InputBox("Введите слово для удаления строки", "Удаляем строки")
If DeleteLine = Empty Then Exit Sub
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
.ClearFormatting
.Text = DeleteLine
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
While .Execute
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete
Wend
End With
Application.ScreenUpdating = True
End Sub