Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 03-19-2019, 04:52 AM
gmayor's Avatar
gmayor gmayor is offline Removing headers from multiple files Windows 10 Removing headers from multiple files Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,137
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

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
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
Reply



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 headers from multiple files 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
Removing headers from multiple files convert multiple csv files to multiple excel files mit Excel 1 06-14-2011 10:15 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 01:45 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft