Delete Pages in Publisher 2003

[Despotes]

Is there a way to delete many pages at once (More than 2) from a Publisher Doc?

 

[Mary Sauer]

This solution was posted by eezzell.

I delete multiple pages using a macro
First, make a copy of your publisher document.
Then, in your copy, create a macro with a name like deletepages. For example
to delete pages 10 to 40 you would run this macro:

Sub deletepages()
Dim firstpage, lastpage As Long
firstpage = 10
lastpage = 40
For i = firstpage To lastpage
ThisDocument.Pages.Item(firstpage).Delete
Next
End Sub

The first time I tried this, I used the line
ThisDocument.Pages.Item(i).Delete
forgetting that after a page is deleted, the remaining pages are moved up.