Pagination in Different Sections

macropod · #5 02-12-2014, 12:14 AM

Yes, it's only the 'Different odd and even' is a Document-level heading (not a Section-level heading), despite appearances to the contrary in the Page Layout dialogue.

FWIW, I've tried the VBA approach below on a 3-Section document, but it does the same as the dialogue:

Code:

Sub Test()
Dim HdFt As HeaderFooter, Scn As Section
With ActiveDocument
  With .Sections(1).PageSetup
    .DifferentFirstPageHeaderFooter = True
    .OddAndEvenPagesHeaderFooter = True
  End With
  With .Sections(2).PageSetup
    .DifferentFirstPageHeaderFooter = False
    .OddAndEvenPagesHeaderFooter = True
  End With
  With .Sections(3).PageSetup
    .DifferentFirstPageHeaderFooter = True
    .OddAndEvenPagesHeaderFooter = True
  End With
  For Each Scn In .Sections
    For Each HdFt In Scn.Headers
      With HdFt
        .LinkToPrevious = False
        .Range.Text = "Section: " & Scn.Index & vbTab & "Header: "
        Select Case .Index
          Case 1: .Range.InsertAfter .Index & " (wdHeaderFooterPrimary)"
          Case 2: .Range.InsertAfter .Index & " (wdHeaderFooterFirstPage)"
          Case 3: .Range.InsertAfter .Index & " (wdHeaderFooterEvenPages)"
        End Select
      End With
    Next
  Next
End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Custom Pagination	Mousavi310	Word	4	08-28-2012 06:42 AM
Pagination Issue	DBinSJ	Word	2	01-02-2012 07:26 PM
Pagination problems	vgrauer	Word	0	07-28-2011 01:07 PM
Pagination	eliz.bell	Word	1	08-27-2010 11:35 AM
pagination troubleshooting with multiple sections	Katy D'Angelo	Word	11	09-28-2006 12:13 PM