Getting to the Header or Footer
Sub header() MsgBox Documents("Transfer.doc").Sections(2). _ Footers(wdHeaderFooterFirstPage).Range.Text End Sub