Find out if Page of Heading 1 has header

gmayor · #5 02-10-2016, 10:31 PM

What EXACTLY are you trying to do? You don't have to empty the range to write to it, you can simply write something else to the range. Set a variable for the particular header you require (there are potentially three header ranges for each section) and write to it. The following shows how all asections and all headers in those sections can be addressed, if they exist:

Code:

Sub HeadersTest()
Dim oSection As Section
Dim oHeader As HeaderFooter
Dim oRng As Range
Dim strHeaderType As String
    For Each oSection In ActiveDocument.Sections
        For Each oHeader In oSection.Headers
            If oHeader.Exists Then
                Select Case oHeader.Index
                    Case 1: strHeaderType = "Primary"
                    Case 2: strHeaderType = "First Page"
                    Case 3: strHeaderType = "Even Pages"
                End Select
                Set oRng = oHeader.Range
                MsgBox "Section " & oSection.Index & vbCr & _
                       "Header " & strHeaderType & vbCr & _
                       "Contains: " & oRng.Text
                oRng.Text = "New header text for Section " & oSection.Index & " Header " & strHeaderType
                MsgBox "Section " & oSection.Index & " Header " & strHeaderType & " updated to " & vbCr & _
                       oRng.Text
            End If
        Next oHeader
    Next oSection
lbl_Exit:
    Set oSection = Nothing
    Set oHeader = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can't remove page break between a Heading 1 and a Heading 2	Nathan8752	Word	3	08-31-2015 12:41 PM
Can I unter the last heading in a footer, regardless of what level the header is?	Huffle	Word	2	09-28-2014 03:48 PM
include heading text in header	eNGiNe	Word	2	03-06-2013 12:24 AM
How to have a heading 1 file automatically appear in each header of any page?	expert4knowledge	Word	2	09-16-2012 10:38 AM
Need to change text in header to next Heading 1	Kanith	Word	1	06-14-2011 03:35 PM