Selecting Different First page in header footer options in a macro

[AllisonNS]

Hi So I have a slightly different but related question to my previous post. I have gotten a working macro which will add a header, footer and watermark to a document but it only works when the different first page option is selected.
Since I only want to add the header, footer and watermark to the first page of any document that is not a problem.
My problem is I dont know how to get the marco to set the different first page header/footer option to true, so i dont have to go in and set it myself.

This is the current working macro:

Sub AddHFW()

'Add Header
'Add Footer
'Add Watermark
'additions based on company header, footer, and watermark

'Need code here to set different first page option to true

With ActiveDocument.Sections.First.Headers(wdHeaderFooterFirstPage)
.Shapes.AddPicture FileName:="C:\Users\AllisonWentzell\Documents\Custom Office Templates\Header.png", LinkToFile:=False, SaveWithDocument:=True, Left:=-75, Top:=-35, Width:=620, Height:=71
End With

With ActiveDocument.Sections.First.Footers(wdHeaderFooterFirstPage)
.Shapes.AddPicture FileName:="C:\Users\AllisonWentzell\Documents\Custom Office Templates\Footer.png", LinkToFile:=False, SaveWithDocument:=True, Left:=-75, Top:=-22, Width:=620, Height:=71
End With

With ActiveDocument.Sections.First.Headers(wdHeaderFooterFirstPage)
.Shapes.AddPicture FileName:="C:\Users\AllisonWentzell\Documents\Custom Office Templates\LogoF2.png", LinkToFile:=False, SaveWithDocument:=True, Left:=25, Top:=173, Width:=1700, Height:=435
End With

End Sub


I am not too keen on changing what is there, though I am sure there is a more compact way to get it to work as I have been over an hour getting the pictures to be in the proper places on the page.

[macropod]

ActiveDocument.Sections.First.PageSetup.DifferentFirstPageHeaderFooter = True

[AllisonNS]

Well I may have been making this more complicated in my head then it actually was......

Thank you for taking the time to answer.