Returns or sets a Variant representing the font position relative to the baseline of the text in the specified range. Positive values move the text above the normal baseline, negative values move the text below the baseline. Indeterminate values are returned as -9999.0. Read/write.
expression.Position
expression Required. An expression that returns one of the objects in the Applies To list.
Numeric values are evaluated in points; string values can be in any measurement units supported by Microsoft Publisher (for example, "0.25 in").
This example adjusts the text in the second story to 5 points below the baseline.
Sub Position()
Application.ActiveDocument.Stories(2).TextRange.Font.Position = -5
End Sub