Scaling Property

Returns or sets the scaling percentage applied to the font. This property stretches or compresses text horizontally as a percentage of the current size (the scaling range is from 1 through 600). Read/write Long.

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