API Documentation > CorelDRAW > 2025-v26 > TextRange > IVGTextRange
TextRange.InsertAfterWide method
Inserts the new Unicode text after the last character in the range and returns a range containing only the inserted characters
Syntax:
Function InsertAfterWide(ByVal Text As String, Optional ByVal LanguageID As cdrTextLanguage = cdrLanguageNone, Optional ByVal CharSet As cdrTextCharSet = cdrCharSetMixed, Optional ByVal Font As String) As TextRange
Parameters:
Name Type Description
Text
String
LanguageID
Specifies the language code.
CharSet
Specifies the character set.
Font
String
Examples:
The following VBA 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