本示例将活动文档中的文字水平拉长到原大小的 110%。

ActiveDocument.Content.Font.Scaling = 110

 

本示例将 Sales.wps 中第一段的文字压缩到原大小的 90%。

With Documents("Sales.wps").Paragraphs(1).Range.Font
    .Scaling = 90
    .Bold = False
End With