TextRange.InsertAfterWide

Function InsertAfterWide(Text As String, [LanguageID As cdrTextLanguage = cdrLanguageNone], [CharSet As cdrTextCharSet = cdrCharSetMixed], [Font As String]) As TextRange

The InsertAfterWide method inserts Unicode text after the last character in the text range, and it returns a text range that contains only the inserted characters.


Parameters	Description
Text	Specifies the text to insert
LanguageID	Specifies the language code This parameter is optional, and its default value is cdrLanguageNone (0).
CharSet	Specifies the character set This parameter is optional, and its default value is cdrCharSetMixed (-1).
Font	Specifies the font This parameter is optional.

The following code example creates two Japanese characters by using their character codes, and it then inserts the same two characters after the first ones:

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