Document.InsertPages

Function InsertPages(NumberOfPages As Long, BeforePage As Boolean, Page As Long) As Page

The InsertPages method inserts blank pages in a document. The first page added is returned. You can specify if the pages are inserted before the active page.


Parameters	Description
NumberOfPages	Specifies the number of pages to add to a document
BeforePage	Specifies whether the pages are inserted before the active page in the document
Page	Specifies the page where new pages are inserted

The following code example adds four new pages before the current page and creates a locked rectangle with different fountain fills on each new page.

Sub Test() 
 Const NumPages As Long = 4 
 Dim p As Page 
 Dim Idx As Long, i As Long 
 Set p = ActiveDocument.InsertPages(NumPages, True, 
ActivePage.Index) 
 Idx = p.Index 
 For i = Idx To Idx + NumPages - 1 
  Set p = ActiveDocument.Pages(i) 
  With p.ActiveLayer.CreateRectangle(0, 0, p.SizeWidth, 
p.SizeHeight) 
   .Fill.ApplyFountainFill CreateRGBColor((i - Idx) * 255 / 
NumPages, 0, 0), _ 
    CreateRGBColor(0, 0, 0) 
   .Locked = True 
  End With 
 Next i 
End Sub