myInDesign = CreateObject("InDesign.Application.CS3") myDocument = myInDesign.Documents.Add myTextFrame = myDocument.Pages.Item(1).TextFrames.Add myTextFrame.GeometricBounds = Array("6p", "6p", "24p", "24p") myTextFrame.Contents = "Hello World!"