API Documentation > CorelDRAW > 2025-v26 > TextRange > IVGTextRange
TextRange.ReplaceWide method
Replaces the range with the Unicode text string and returns the new range
Syntax:
Function ReplaceWide(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
Remarks:
The ReplaceWide method replaces a text range with Unicode text and returns the new range.
Examples:
The following VBA example creates two Japanese characters by using their character codes, and it then replaces the first character with the two that were first created.
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.Characters.First.ReplaceWide ChrW$(-32022) & ChrW$(-32072) 
End Sub