Previous Document Next Document

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


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 a text range, returning a text range that contains only the inserted characters.

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.