本示例将活动文档的页面高度设置为 9 英寸。

With ActiveDocument.PageSetup
    .PageHeight = InchesToPoints(9)
    .PageWidth = InchesToPoints(7)
End With