TextRange.ReplaceWide

Object Model Reference : Classes : T : TextRange : Methods : TextRange.ReplaceWide

TextRange.ReplaceWide

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

Description

Member of TextRange

The ReplaceWide method replaces a text range with Unicode text and returns the new range.


Parameter	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.

VBA example

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