Вставить строки над заданными словами

[Serega_1]

Здравствуйте. В таблице Ворд 2003 в строках различный текст. Нужен макрос, чтобы осуществил поиск всех слов "Включить", "Отключить" и над каждым вставил строку с надписью т.е. отработал таблицу сверху вниз. Удалось сделать только на 1 слово и на 1 пуск и в конце, когда не находит слово, всё равно вставляет строку. Подмогите

Sub Макрос1()
'
' Макрос1 Макрос
' Отключить
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Отключить"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.InsertRowsAbove 1
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Extend
Selection.Extend
Selection.Extend
Selection.Copy
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Font.Bold = wdToggle
Selection.Font.Color = wdColorRed
Selection.TypeText Text:="Проверить правильность"
Selection.MoveDown Unit:=wdLine, Count:=2
End Sub