Петля на основе повторного текста в документе

Question

У меня есть документ Word, состоящий из многих глав. Документ не оформлен, все это текст, но каждая глава начинается в своей строке с помощью «Chapter #» (без кавычек). Я записал и изменил макрос, который находит следующую главу #, блоки, копии, сокращает предыдущую главу, открывает новый документ, вставляет, сохраняет и закрывает. Я должен щелкнуть макрос для каждой главы. Как это сделать, поэтому я нажимаю только один раз, а макрос повторяется для следующих глав и останавливается, когда ничего не осталось? Вот что у меня есть:

Sub Breakout2() 
' 
' Breakout2 Macro 
' 
' 
    Selection.Find.ClearFormatting 
    With Selection.Find 
     .Text = "^pChapter " 
     .Replacement.Text = "" 
     .Forward = True 
     .Wrap = wdFindContinue 
     .Format = False 
     .MatchCase = True 
     .MatchWholeWord = False 
     .MatchWildcards = False 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False 
    End With 
    Selection.Find.Execute 
    Selection.Find.Execute 
    Selection.HomeKey Unit:=wdStory, Extend:=wdExtend 
    Selection.Cut 
    Documents.Add DocumentType:=wdNewBlankDocument 
    Selection.PasteAndFormat (wdUseDestinationStylesRecovery) 
    ChangeFileOpenDirectory "U:\Breakout\" 
    ActiveDocument.SaveAs2 
    ActiveDocument.Close 
End Sub 

Answer 1

решаемые путем изменения моего кода:

Sub Breakout2() 
' 
' Breakout2 Macro 
' 
' 
Dim i 
For i = 1 To 1000 

{then same code as in OP} 

Next i 
End Sub