Page.Delete

Sub Delete()

Member of Page

The Delete method removes a page from a document and deletes all of the shapes on the page.

The following code example deletes all of the empty pages in the active document:

Sub Test() 
 Dim p As Page 
 For Each p In ActiveDocument.Pages 
  If p.Shapes.Count = 0 Then p.Delete 
 Next p 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.