Word VisualBasic Script

Sub active()
    With ActiveDocument.Sections(10)
        If .Headers(wdHeaderFooterFirstPage).Exists = False Then _
            .PageSetup.DifferentFirstPageHeaderFooter = True
    End With
End Sub