Sub Test() Dim d As Document Dim s As Shape Dim t As Text Dim tr As TextRange Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, _ "This is an example: ", Font:="Arial") Set t = s.Text Set tr = t.Story.InsertAfter("áâãäåæçèéêëìíîïðñòóôõö") tr.CharSet = cdrCharSetGreek tr.LanguageID = cdrGreekEnd Sub