Returns or sets a Variant value used to scale the width of the characters in the text range as a percentage of the current font size. Read/write.
expression.Scaling
expression Required. An expression that returns one of the objects in the Applies To list.
Valid range is 0.1 to 600.0 where the number represents the percentage of current font size. Indeterminate values are returned as –2.
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