Problema a la hora de pasar datos de access a word

Hola, estoy intentando pasar unos datos de una base de datos access a plantilla de word.

Tengo una tabla que se llama TRABAJADORES

Otra tabla que se llama ASEGURADORAS

Un formulario que se llama TRABAJADORES

Una consulta que se llama CONSULTA_FACTURA (es una consulta de la tabla aseguradoras) y un formulario enlazado a la CONSULTA_FACTURA.

En el formulario tengo un campo aseguradora(que es el nombre de la aseguradora insertado en la tabla aseguradora)

Con un botón quiero que que coja los datos del registro del formulario actual y aparte de otro formulario(que es el que va a una consulta))., pero no me funciona. Este es el código.

Const plantilla = "\Factura_amador.dot"
Dim appWord As Word.Application

Dim wordDoc As Word.Document

Set appWord = New Word.Application

With appWord

.Visible = True

.WindowState = wdWindowStateMaximize

End With

Set wordDoc = appWord.Documents.Add(CurrentProject.Path & plantilla)

With wordDoc

.Unprotect

.Bookmarks("Nombre_tra").Range.Text = Me.Nombre_tra.Value

.Bookmarks("Apellido1_tra").Range.Text = Me.Apellido1_tra.Value

.Bookmarks("Apellido2_tra").Range.Text = Me.Apellido2_tra.Value

.Bookmarks("Dni_tra").Range.Text = Me.Dni_tra.Value

.Bookmarks("Direccion_tra").Range.Text = Me.Direccion_tra.Value

.Bookmarks("Poblacion_tra").Range.Text = Me.Poblacion_tra.Value

.Bookmarks("Provincia_tra").Range.Text = Me.Provincia_tra.Value

.Bookmarks("Nombre_ase").Range.Text = Me.[Factura].Form!Nombre_ase

.Bookmarks("Direccion_ase").Range.Text = Me.[Factura].Form!Direccion_ase

.Bookmarks("Codigo_postal_ase").Range.Text = Me.[Factura].Form!Codigo_postal_ase

.Bookmarks("Poblacion_ase").Range.Text = Me.[Factura].Form!Poblacion_ase

.Bookmarks("Provincia_ase").Range.Text = Me.[Factura].Form!Provincia_ase

.Bookmarks("CIF_ase").Range.Text = Me.[Factura].Form!CIF_ase

.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End With

El del formulario Factura no me funciona. Gracias