1

Тема: Visual basic - удаление строки с словом

Скрипт удаляет все строки в документе, которое содержит определенное слово:

Application.Browser.Previous

Dim i As Long
For i = 2 To Documents(1).Paragraphs.Count
stoka = ActiveDocument.Paragraphs(i).Range.Text

Dim Nrav As String

Nrav = InStr(stoka, "СЛОВО")
If Nrav <> 0 Then
ActiveDocument.Paragraphs(i).Range = " " & vbCrLf

If ActiveDocument.Paragraphs(i).Range = ActiveDocument.Paragraphs(i - 1).Range Then
ActiveDocument.Paragraphs(i).Range.Delete
i = i - 1
End If

End If
Next

Поделиться