API Documentation > CorelDRAW > 2025-v26 > TextRange > IVGTextRange
TextRange.WideText property
Unicode text string
Syntax:
Property Get WideText() As String
Property Let WideText(ByVal Value As String)
Remarks:
The WideText property returns or specifies a Unicode text string for a text range.
Examples:
The following VBA example creates two Japanese characters by using their character codes, and it then appends the same two characters to the text string.
Sub Test()
Dim t As Text
Dim s As Shape
Dim d As Document
Set d = CreateDocument
Set s = d.ActiveLayer.CreateParagraphTextWide(2, 2, 8, 8, _
  ChrW$(-32022) & ChrW$(-32072), cdrJapanese, cdrCharSetShiftJIS, _
  Font:="MS Gothic")
Set t = s.Text
t.Story.InsertAfterWide " " & t.Story.WideText 
End Sub