API Documentation > CorelDRAW > 2025-v26 > TextRange > IVGTextRange
TextRange.Position property
Gets/sets the font position
Syntax:
Property Get Position() As cdrFontPosition
Property Let Position(ByVal Value As cdrFontPosition)
Remarks:
The Position property returns or specifies the font position of a text range.
Examples:
The following VBA 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