本示例设置稿纸的高度为500像素。

With ActiveDocument.PageSetup
    .GenkoPageHeight = 500
End With