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