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