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