Document.InsertPagesEx

Function InsertPagesEx(NumberOfPages As Long, BeforePage As Boolean, Page As Long, Width As Double, Height As Double) As Page

Member of Document

The InsertPagesEx method inserts blank pages, with a specified height and width, to a document. The first page inserted is returned. You can specify if the pages are inserted before the active page.


Parameters	Description
NumberOfPages	Identifies the number of pages to add to a document
BeforePage	Returns a value indicating if the pages are inserted before the active page in the document
Page	Specifies the page where new pages are inserted
Width	Specifies the width of the pages that are inserted in the document. This value is measured in document units.
Height	Specifies the width of the pages that are inserted in the document. This value is measured in document units.

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.InsertPagesEx(NumPages, True, 
ActivePage.Index, 8.5, 11) 
 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