OddAndEvenPagesHeaderFooter Property Example

This example creates different headers and footers for odd-numbered pages and even-numbered pages in 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