Deleting everything between two page breaks

[Devin Rader]

Is there an easy way to delete all of the content between two page breaks?

devin

 

[Helmut Weber]

Hi Devin,

in case they are manual pagebreaks und the
start of the insertion point is on the page,
you want to have blank:

Sub Test8465()
MsgBox ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
With Selection
.Collapse
.Bookmarks("\page").Select
.End = Selection.End - 1 ' this is the next pagebreak
' which is on the actual page
.Delete
End With
MsgBox ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
End Sub


Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"