Deleting multiple pages in Publisher

[denalynn]

Is there a way to delete multiple pages in Publisher. For instance, if you
have a document that is 50 pages and you want to delete pages 15-50, is there
a way to to this without having to delete one at a time.

 

[denalynn]

We have Publisher 2003. It's hard to believe that there would not be an
option for this. In PageMaker you can delete more than one page at a time.
Any help would be greatly appreciated.

 

[Mary Sauer]

If you have Publisher 2007, select the page tabs on the status bar that you want
to delete. Hold ctrl for nonconsecutive pages. Hold shift for consecutive.

Other versions you will have to delete a page at a time, save with a different
name in case you error.

 

[eezzell]

It is straightforward to delete multiple pages using a macro.

First, make a copy of your publisher document. Do not run the following
macro on your main publisher file.
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


Just change what you assign to the firstpage and lastpage before running the
macro. Then, view your publisher document to make sure that you got the
desired results.
Important: because of the nature of how stories are connected in text boxes,
deleting multiple pages can lead to some strange results.