Вставка разрывов строк

Sub insBreakPage() 
'Вставка разрывов строк после каждого 1-го слова "подпись___" 
Dim i As Long 
Selection.HomeKey Unit:=wdStory  'переходим в начало документа 
With Selection.Find 
   .ClearFormatting 
   .Replacement.ClearFormatting 
   .Forward = True 
   .Wrap = wdFindContinue 
   .MatchCase = True 'Учитываем регистр искомого слова 
   .Text = "подпись___" 'ищем слово 
   'Запускаем цикл поиска 
   Do While .Execute 
      i = i + 1   'считаем найденные слова 
      If i = 1 Then 
         Selection.Collapse wdCollapseEnd 
         Selection.InsertBreak wdLineBreak 
         Selection.InsertBreak wdLineBreak 
         i = 0 'обнуляем счетчик для нового отсчета 
      End If 
   Loop 
   MsgBox "Закончено" 
End With 
End Sub