Option Explicit
Sub Test()
Dim objHeader As Word.HeaderFooter
With ThisDocument.Sections(1)
For Each objHeader In .Headers
Debug.Print GetHeaderFooterTypeName(objHeader), objHeader.Range.Tables.Count & " tables"
Next
End With
End Sub
Private Function GetHeaderFooterTypeName(HeaderFooter As Word.HeaderFooter) As String
Select Case HeaderFooter.Index
Case wdHeaderFooterPrimary: GetHeaderFooterTypeName = "wdHeaderFooterPrimary"
Case wdHeaderFooterFirstPage: GetHeaderFooterTypeName = "wdHeaderFooterFirstPage"
Case wdHeaderFooterEvenPages: GetHeaderFooterTypeName = "wdHeaderFooterEvenPages"
Case Else: GetHeaderFooterTypeName = "UNKNOWN"
End Select
End Function