Sub Test() Dim d As Document Dim s As Shape Dim t As Text Dim strText As String Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 8, 8, "This is a test.") Set t = s.Text t.Story.Characters.Item(3).Bold = True t.Story.Characters.Item(10, 5).Fill.UniformColor.RGBAssign 155, 0, 0End Sub