TextRange.Select

Sub Select()

Member of TextRange

The Select method selects the characters in the text range.

The following code example places the text in editing mode and selects the first word:

Sub Test() 
 Dim d As Document 
 Dim t As Text 
 Dim s As Shape 
 Set d = CreateDocument 
 Set s = d.ActiveLayer.CreateParagraphText(3, 3, 5, 5, "This is an 
example.") 
 Set t = s.Text 
 t.BeginEdit 
 t.Story.Words.First.Select 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.