Word Macro Help

[kpkelley]

Hi,

I have some reports that are saved as text files and need to be formatted before I can print them. I have been able to record a macro that will format the whole file correctly with one exception. The Page Breaks are off. I can write a macro that will insert page breaks where I need them, but I don't know how to repeat it and then end the loop at the end of the document.

Here is what I have so far:

Sub PageBreak()
'
' PageBreak Macro
'
'
Selection.find.ClearFormatting
With Selection.find
.Text = "run date"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Do
Selection.find.Execute
Selection.find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.InsertBreak Type:=wdPageBreak
Loop
End Sub

TIA,

Kyle.

[kpkelley]

I added the following line to get it to stop at the final page...

Do Until Selection.Information(wdActiveEndPageNumber) = ActiveDocument.Content.Information(wdActiveEndAdju stedPageNumber)