设置稿纸的布局为单线条。

With ActiveDocument.PageSetup
    .GenkoGrid = wpsGenkoGrid_Underline
End With