Removing headers from multiple files

gmayor · #5 03-19-2019, 04:52 AM

The following function will selectively delete headers and footers from the document. You could use it with http://www.gmayor.com/document_batch_processes.htm as a custom process to handle the folders containing the documents. Try it on a single example before running it on many documents to ensure that it deletes what is required in your documents.

Code:

Function DeleteHeaders(oDoc As Document) As Boolean
Dim oHeader As HeaderFooter
Dim oFooter As HeaderFooter
Dim oSection As Section
    On Error GoTo err_Handler

    For Each oSection In oDoc.Sections
        For Each oHeader In oSection.Headers
            If oHeader.Exists Then
                Select Case oHeader.Index
                    Case wdHeaderFooterFirstPage
                        'do nothing or oHeader.Range.Delete as required
                    Case wdHeaderFooterPrimary
                        oHeader.Range.Delete
                    Case wdHeaderFooterEvenPages
                        oHeader.Range.Delete
                End Select
            End If
        Next oHeader
        For Each oFooter In oSection.Footers
            If oFooter.Exists Then
                Select Case oFooter.Index
                    Case wdHeaderFooterFirstPage
                        'do nothing or oFooter.Range.Delete as required
                    Case wdHeaderFooterPrimary
                        oFooter.Range.Delete
                    Case wdHeaderFooterEvenPages
                        oFooter.Range.Delete
                End Select
            End If
        Next oFooter
    Next oSection
    DeleteHeaders = True
lbl_Exit:
    Set oSection = Nothing
    Set oHeader = Nothing
    Set oFooter = Nothing
    Exit Function
err_Handler:
    DeleteHeaders = False
    Resume lbl_Exit
End Function

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2010 removing headers from pages with photos	normancamp	Word	6	03-31-2018 02:39 PM
Removing Hyperlinks in Multiple Documents at Once	Jude24Joy	Word VBA	10	06-13-2017 05:38 AM
Removing Sections from headers and footers	Tonks811	Word	2	01-16-2016 10:30 PM
Updating headers in multiple files	cellophane	Word	3	01-17-2013 06:36 AM
convert multiple csv files to multiple excel files	mit	Excel	1	06-14-2011 10:15 AM