TextRange.LanguageID

Property LanguageID As cdrTextLanguage

The LanguageID property returns or sets the language code for the text range.

The following code example changes the character set and the language code to Greek, and it adds characters that are 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