PageSize.Index

Property Index As Long

The Index property returns the index number for the paper type.

The Index property returns a read-only value.

The following code example displays the names of all page sizes, and their index numbers, if the paper type is predefined:

Sub Test() 
 Dim ps As PageSizes 
 Dim d As Document 
 Dim p As PageSize 
 Dim st As String 
 Dim s As Shape 
 Set d = CreateDocument 
 Set ps = d.PageSizes 
 For Each p In ps 
  If p.BuiltIn Then 
   st = st & p.Name & "(" & p.Index & ")" & vbCr 
  End If 
 Next p 
 Set s = d.ActiveLayer.CreateParagraphText(8.5, 11, 0, 0, st) 
End Sub