本示例设置活动文档中所有节的页面方向。

With ActiveDocument.Sections
    For i = 0 To .Count
        .PageSetup.Orientation = wpsOrientLandscape
    Next
End With