Pasar de access a header word

Hola buenas noches,

Tengo un código vb para access en el cual paso los datos de access 2007 a word 2007. Funciona todo muy bien. Pero he querido rizar el rizo y ahora me he perdido un poco.

La cuestión es que quiero pasar de access a word pero al encabezado. Con el código que tengo funciona muy bien a una tabla normal, pero no a donde quiero.

Podríais echarme una mano? Cambiando lo mínimo posible del código? Es porque no doy con la solución. De ante mano muchas gracias :-)

Public Function Ejecutar( _
ByVal consulta As String, _
Optional ByVal filtro As String = "" _
) As Boolean
'On Error GoTo Errores
On Error Resume Next
Call SysCmd(acSysCmdInitMeter, "Exportando a Word: " & consulta, 100)
DoCmd.Hourglass True
Dim rs As DAO.Recordset
Dim field As DAO.field
If filtro <> "" Then consulta = "SELECT * FROM " & consulta & " WHERE " & filtro
Set rs = CurrentDb.OpenRecordset(consulta, dbOpenForwardOnly)
If rs.BOF And rs.EOF Then
Else
For Each field In rs.Fields
With app_word.Selection.Find
.ClearFormatting
.Text = "[" & UCase(field.Name) & "]"
With .Replacement
.ClearFormatting
.Text = rs(field.Name) & ""
End With
Call .Execute(Replace:=Word.WdReplace.wdReplaceAll)
End With
Next
End If
Ejecutar = True
Salida:
Call SysCmd(acSysCmdRemoveMeter)
DoCmd.Hourglass False
Exit Function
'Errores:
'MsgBox Err.Description, vbCritical, "Ejecutar"
Resume Salida
End Function