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