Document.InsertPagesEx

Object Model Reference : Classes : D : Document : Methods : Document.InsertPagesEx

Document.InsertPagesEx

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

Description

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.


Parameter	Description
NumberOfPages	Specifies the number of pages to add to a document
BeforePage	Specifies the value indicating whether 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.

VBA example

The following VBA 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