OddAndEvenPagesHeaderFooter 属性

如果为 True，则指定的 PageSetup 对象的奇数页和偶数页具有不同的页眉和页脚。属性值可以取 True、False 或 wdUndefined。Long 类型，可读写。

expression   必需。该表达式返回一个 PageSetup 对象。

示例

本示例为 Document1 的奇偶页创建不同的页眉和页脚。

Set myDoc = Documents("Document1")
myDoc.PageSetup.OddAndEvenPagesHeaderFooter = True
With myDoc.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range _
        .InsertAfter "Odd Header"
    .Headers(wdHeaderFooterEvenPages).Range _
        .InsertAfter "Even Header"
End With