Document.InsertPages method - Developer Area

API Documentation > Corel DESIGNER > 2024-v25 > Document > IVGDocument

Document.InsertPages method

Inserts blank pages in a document and returns the first page added.You can specify that the pages are inserted before the active page.

Syntax:

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

Parameters:

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

Remarks:

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.

Examples:

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.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

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25