Access - Replacewith no me funciona en los encabezados!

Document = "prova.doc"

Set Variableword = New Word.Application

Variableword.Visible = True

Set DocWord = Variableword.Documents.Add(Document, , , True)

' Reemplazar en el cuerpo del documento

Set rngCurrent1 = DocWord.Content

With rngCurrent1.Find

    .Execute findtext:="{data}", replacewith:=Me.data, Format:=True, Replace:=wdReplaceAll

End With

' Reemplazar en el encabezado

For Each sec In DocWord.Sections

    For Each hf In sec.Headers

        Set rngCurrent2 = hf.Range

        With rngCurrent2.Find

            .Execute findtext:="{data}", replacewith:=Me.data, Format:=True, Replace:=wdReplaceAll

        End With

    Next hf

Next sec

' Reemplazar en el pie de página

For Each sec In DocWord.Sections

    For Each hf In sec.Footers

        Set rngCurrent3 = hf.Range

        With rngCurrent3.Find

            .Execute findtext:="{data}", replacewith:=Me.data, Format:=True, Replace:=wdReplaceAll

        End With

    Next hf

Next sec