Object Model Reference : Classes : T : TextRange : Properties : TextRange.CharSet |
Property CharSet As cdrTextCharSet
Member of TextRange
The CharSet property returns or specifies the character set of a text range.
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 |
Copyright 2013 Corel Corporation. All rights reserved.