Sub Test() Dim d As Document Dim so As StructCreateOptions Set so = CreateStructCreateOptions With so .Name = "CreateDocumentEx Sample" .PageHeight = 10 .PageWidth = 10 .Resolution = 300 .Units = cdrPixel End With Set d = CreateDocumentEx(so)End Sub