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
        .Parent.Select
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.Delete
    Wend
End With
Application.ScreenUpdating = True