Word VisualBasic Script

Sub diff()
    ActiveDocument.Sections(1).PageSetup.OddAndEvenPagesHeaderFooter = True
End Sub