Page.Index

Property Index As Long

Member of Page

The Index property returns the page number of a page.

The Index property returns a read-only value.

The following code example places page numbers on each page of the document:

Sub Test() 
 Dim p As Page 
 Dim s As Shape 
 For Each p In ActiveDocument.Pages 
  Set s = p.ActiveLayer.CreateArtisticText(p.SizeWidth / 2, 0.5, "- 
Page " & p.Index & " -") 
  s.Text.AlignProperties.Alignment = cdrCenterAlignment 
 Next p 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.