PageSize.Width

Property Width As Double

The Width property returns the width of the page.

The following code example displays the names of all page sizes, and their widths and heights, 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.Width & " X " & p.Height & ")" & vbCr 
  End If 
 Next p 
 Set s = d.ActiveLayer.CreateParagraphText(8.5, 11, 0, 0, st) 
End Sub