Section Break Macro (XP)

[sgthomas98]

Another macro question: I have recorded a macro for inserting a section break, but would like to include commands for turning off Same as Previous for both First Page and regular headers and footers. Can someone help me with code? Thanks.

[HansV]

' Insert next page section break
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.Sections(1).
' Turn off Same as Previous for regular header
Headers(wdHeaderFooterPrimary).LinkToPrevious = False
' Idem for first page header
.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
' Idem for regular footer
.Footers(wdHeaderFooterPrimary).LinkToPrevious = False
' Idem for first page footer
.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
End With

[sgthomas98]

Thanks again, Hans!