Sub Test() Dim t As Text Dim s As Shape Dim d As Document Dim strText As String strText = "This is a test. This is a test. This is a test. " & _ "This is a test. This is a test. This is a test." strText = strText & " This is the next sentence. " & strText Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 5, 5, strText) Set t = s.Text t.Story.Lines.Item(1).Bold = True t.Story.Lines.Item(2, 2).Fill.UniformColor.RGBAssign 155, 0, 0End Sub