Sub Test() Dim d As Document Dim s As Shape Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(3, 3, 5, 5, _ "This is an example. This is an example. This is an " & _ "example. This is an example. This is an example.") Set t = s.Text t.Story.LeftIndent = 0.5End Sub