Checking to See if a Header or Footer Exists : ActiveDocument « Word « VBA / Excel / Access / Word

Checking to See if a Header or Footer Exists

Sub footer()
    Dim cSection As Section
    With ActiveDocument
        For Each cSection In .Sections
            cHeader = cSection.Headers(wdHeaderFooterEvenPages)
            If Not cSection.Headers(wdHeaderFooterEvenPages).Exists Then
                cSection.PageSetup.OddAndEvenPagesHeaderFooter = True
                cSection.Headers(wdHeaderFooterEvenPages).Range.Text _
                    = "Section " & cSection.Index & " of " & .FullName
                cSection.Headers(wdHeaderFooterEvenPages).Range. _
                    Style = "Even Footer"
            End If
        Next cSection
    End With
End Sub


Related examples in the same category

1.Save document as
2.Defining a Named Range
3.Uppercase the first three words at the start of a document
4.Using the Duplicate Property to Store or Copy Formatting
5.Turning Off Track Changes
6.Replace all pairs of paragraph marks in the active document, you could search for ^p^p and replace it with ^p
7.Declare the HeaderFooter object variable myHeader and assign to it the primary header in the first section in the active document:
8.Linking to the Header or Footer in the Previous Section
9.Creating a Different First-Page Header
10.Opening a New Window Containing an Open Document
11.Closing All Windows but the First for a Document
12.Active document paragraph
13.Save active document
14.Activate window by name