TextRange.WideText

Property WideText As String

The WideText property returns or sets a Unicode text string.

The following code 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