expression.Scaling
expression Required. An expression that returns a Font object.
Example
This example horizontally stretches the text in the active document to 110 percent of its original size.
ActiveDocument.Content.Font.Scaling = 110
This example compresses the text in the first paragraph in Sales.doc to 90 percent of its original size.
With Documents("Sales.doc").Paragraphs(1).Range.Font
.Scaling = 90
.Bold = False
End With