TextRange.CharSet

Property CharSet As cdrTextCharSet

The CharSet property returns or sets the character set of a text range.

The following code example changes the character set and the language to Greek, and it adds characters to be typed in Greek:

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 = cdrGreek 
End Sub