本示例设置稿纸的宽度为1000像素。

With ActiveDocument.PageSetup
    .GenkoPageWidth = 1000
End With