TextRange.Position

Property Position As cdrFontPosition

Member of TextRange

The Position property returns or sets the position of the font.

The following code example changes the position of the first word of the paragraph to subscript:

Sub Test() 
 Dim d As Document 
 Dim s As Shape 
 Dim t As Text 
 Set d = CreateDocument 
 Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, "This is an 
example.") 
 Set t = s.Text 
 t.Story.Words.First.Position = cdrSubscriptFontPosition 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.