Sub Test() Dim t As Text Dim s As Shape Dim d As Document Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 8, 8, _ "This is an example for the TextWords Class") Set t = s.Text t.Story.Words.Item(1).Bold = True t.Story.Words.Item(4).Underline = cdrSingleThickFontLine t.Story.Words.Item(7, 2).Fill.UniformColor.RGBAssign 155, 0, 0End Sub