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.") Set t = s.Text t.Story.Case = cdrAllCapsFontCaseEnd Sub