Макрос для Word 2007: удаление строки с символом

Sub DeleteLine()
Dim x As String
 
x = InputBox("Введите слово для удаления строки")
With Selection.Find
    .ClearFormatting
    .Text = "x"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
End With
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Delete
End Sub

.Text = x

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

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

Sub DeleteLine()
    Dim str As String ' Где меняем
    Dim x As String ' Что под замену
    Dim y As String ' На что менняем
 
    y = "На что менняем"
 
    x = InputBox("Введите слово для удаления строки")
 
    Selection.WholeStory ' Выделяет всё
    str = Selection.Text ' Из выделенного в переменную
    str = Replace(str, x, y) ' Заменяет
    Selection.TypeText Text:=s ' Пишем в документ
    Selection.HomeKey Unit:=wdStory 'Курсор в начало документа
End Sub

Sub ЗаменаТипаВсехУдаренийВорд()
 
    Dim s As String
    
    Selection.WholeStory
    
    s = Selection.Text
    s = Replace(s, ChrW(769), "=")
    Selection.TypeText Text:=s
'В начало документа
    Selection.HomeKey Unit:=wdStory
 
End Sub