本示例设置稿纸的宽度为1000像素。
With ActiveDocument.PageSetup
.GenkoPageWidth = 1000
End With