expression.Scaling
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Valid range is 0.1 to 600.0 where the number represents the percentage of current font size. Indeterminate values are returned as –2.
Example
This example scales the width of the text in the second story by 200%. For this example to work, a second story with text must exist in the active document.
Sub ScaleUp()
Application.ActiveDocument.Stories(2).TextRange.Font.Scaling = 200
End Sub