API Documentation > CorelDRAW > 2025-v26 > TextRange > IVGTextRange
TextRange.CharSet property
Gets/sets the character set of the text range
Syntax:
Property Get CharSet() As cdrTextCharSet
Property Let CharSet(ByVal Value As cdrTextCharSet)
Remarks:
The CharSet property returns or specifies the character set of a text range.
Examples:
The following VBA 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