Batch replace Header and Footer and QuickStyle

gmayor · #4 06-18-2017, 11:50 PM

OK. In that case the following function will do that. The function is written to work as a user defined process with http://www.gmayor.com/document_batch_processes.htm which will handle the folders/documents, or you can call it from your own document selection process.

Basically it replaces any (or no) header and footer with the autotext entries from the normal template called @header and @footer, that you said you have created.

If you use the batch processor, ensure that you test it first on a single document to ensure that the autotexts do indeed produce the required results, before processing all the documents in a folder.

Code:

Function MyHeader(oDoc As Document)
Dim oSection As Section
Dim oHeader As HeaderFooter
Dim oFooter As HeaderFooter
Dim strTemplate As String
Dim orng As Range
    strTemplate = Application.Options.DefaultFilePath(wdUserTemplatesPath)
    strTemplate = strTemplate & "\Normal.dotm"

    On Error GoTo err_Handler
    For Each oSection In oDoc.Sections
        For Each oHeader In oSection.Headers
            If oHeader.Exists Then
                Set orng = oHeader.Range
                orng.Text = ""
                Application.Templates _
                        (strTemplate).AutoTextEntries("@header").Insert Where:=orng, _
                                                                        RichText:=True
            End If
        Next oHeader
        For Each oFooter In oSection.Footers
            If oFooter.Exists Then
                Set orng = oFooter.Range
                orng.Text = ""
                Application.Templates _
                        (strTemplate).AutoTextEntries("@footer").Insert Where:=orng, _
                                                                        RichText:=True
            End If
        Next oFooter
    Next oSection
    MyHeader = True
lbl_Exit:
    Exit Function
err_Handler:
    MyHeader = False
    Resume lbl_Exit
End Function

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find & Replace in Header/Footer in 1000 files	amodiammmuneerk@glenmarkp	Word	12	03-05-2018 03:31 AM
New to VBA - Find/Replace in MS Word 2010 that Searches Header/Footer	mbreggs	Word VBA	4	06-01-2016 08:02 AM
Find/replace font colour in all header/footer	trillium	Word VBA	4	10-20-2015 10:39 PM
Created VBA to Find and Replace in Body, Header and Footer with Highlighting the replacement text	QA_Compliance_Advisor	Word VBA	11	09-23-2014 04:40 AM
Find & Replace in Header/Footer	PReinie	Word	6	01-22-2014 06:45 PM