delete all headers and footers

Posted bysouthamptonexamfactoryPosted inUncategorizedTags:, ,

Here at Southampton Exam Factory we have a lot of resources from an exam board for a now-defunct specification. The resources all have several footers and headers in gaudy textboxes with logos. Nobody cares now which section of the defunct syllabus the resources were created for. The macro below will remove them all with one click.

Sub RemoveHeaderAndFooter()

Dim oSec As Section
Dim oHead As HeaderFooter
Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections
   
   For Each oHead In oSec.Headers
   If oHead.Exists Then oHead.Range.Delete
   Next oHead

   For Each oFoot In oSec.Footers
   If oFoot.Exists Then oFoot.Range.Delete
   Next oFoot
   
Next oSec

End Sub

Leave a comment