Word 2007/10VBA宏，用于更改与页面方向相关的PageSetup

Question

在我的位置上，由于页面方向的改变，我们可能会格式化包含许多部分的检查文档。对于纵向和横向方向的边距尺寸，有一定的限制。我想要实现的是一个宏，它将遍历当前打开的文档，检查每个部分的方向，并调整页边距/页眉/纸张大小(根据页面是纵向还是横向而有所不同)这里是我到目前为止所获得的，但它只将页边距更改为横向设置中的页边距，而忽略页眉/页脚：

 If PageSetup.Orientation = wdOrientPortrait Then
    PageSetup.LeftMargin = CentimetersToPoints(3.17)
    PageSetup.RightMargin = CentimetersToPoints(3.17)
    PageSetup.TopMargin = CentimetersToPoints(2.23)
    PageSetup.BottomMargin = CentimetersToPoints(2.21)
    PageSetup.PaperSize = wdPaperLetter
    PageSetup.HeaderDistance = CentimetersToPoints(0.96)
    PageSetup.FooterDistance = CentimetersToPoints(0.94)
ElseIf PageSetup.Orientation = wdLandscapeOrientation Then
    PageSetup.LeftMargin = CentimetersToPoints(2.21)
    PageSetup.RightMargin = CentimetersToPoints(2.23)
    PageSetup.TopMargin = CentimetersToPoints(3.17)
    PageSetup.BottomMargin = CentimetersToPoints(3.17)
    PageSetup.PaperSize = wdPaperLetter
    PageSetup.HeaderDistance = CentimetersToPoints(1.9)
    PageSetup.FooterDistance = CentimetersToPoints(1.9)

End If
Selection.GoToNext wdGoToSection

你能给我一些例子或工作代码吗？上面以最简单的方式展示了我的概念，但我没有创建word宏的经验。