ActiveDocument.Content.Font.Scaling = 110
本示例将 Sales.wps 中第一段的文字压缩到原大小的 90%。
With Documents("Sales.wps").Paragraphs(1).Range.Font .Scaling = 90 .Bold = False End With