Find out if Page of Heading 1 has header

gmayor · #1 02-10-2016, 07:01 AM

The first page header will exist, even if empty, provided the different first page option is applied to the current section. I suspect what you want is to ensure the first page header has no content. In that case simply deleting the content of the header will achieve the aim of having an empty header e.g. as follows. I have added optional code to show if the header is empty.

Code:

Sub ClearHeader()
Dim secTemp As Section
Dim sectionNum As Integer
Dim oHeader As HeaderFooter
    sectionNum = Selection.Information(wdActiveEndSectionNumber)
    Set secTemp = ActiveDocument.Sections(sectionNum)

    If secTemp.Headers(wdHeaderFooterFirstPage).Exists = True Then
        Set oHeader = secTemp.Headers(wdHeaderFooterFirstPage)
        If Len(oHeader.Range) > 1 Then 'Optional
            oHeader.Range.Delete
        Else 'optional
            MsgBox "Header is empty" 'optional
        End If 'Optional
    End If
End Sub

rocky2 · #2 02-10-2016, 01:13 PM

Thanks. It worked.

rocky2 · #3 02-10-2016, 09:44 PM

It did work once. But then, it was empty and to get to the header text I had to go to:
oHeader.Range.Sections.First.Headers.Item(1).Range .Text

does that make sense?
Is there a more "proper" way to get to this info or at least to Item(1)?

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