Error 5941

Hola,
Estoy desarrollando una aplicación GMAO en VBA.
El problema es que quiero transferir los datos almacenados en un recordset a un archivo de Word.
cada vez que ejecuto mi código, se produce un error 5941: "El miembro de la colección requerida no existe"
aquí está mi código:

Private Sub Transfer_Click()
Dim wApp As Object
Dim chemin As String
Dim path As String
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim sql As String
sql = "SELECT num, nom, dat_pan, heu_deb, heu_fin from test"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql)
Set wApp = CreateObject("Word.Application")
chemin = Application.CurrentProject.path
path = "" & chemin & "" + "/Recepisse.doc"
wApp.Visible = True
While Not rs.EOF
With wApp
.Documents.Open (path)
.ActiveDocument.Bookmarks("num").Range.Text = rs.Fields("num") **Problema**
.ActiveDocument.Bookmarks("nom").Range.Text = rs.Fields("nom")
.ActiveDocument.Bookmarks("dat_pan").Range.Text = rs.Fields("dat_pan")
.ActiveDocument.Bookmarks("heu_deb").Range.Text = rs.Fields("heu_deb")
.ActiveDocument.Bookmarks("heu_fin").Range.Text = rs.Fields("heu_fin")
.ActiveDocument.PrintOut
.ActiveDocument.Close (wdDoNotSaveChanges)
End With
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Set wApp = Nothing
End Sub

El problema ocurre en la línea indicada como "Problema"
gracias por indicarme la solución, ya que estoy atascado en esta etapa
gracias de antemano por la atención que prestarían a mi mensaje.

Configuración: Windows XP Internet Explorer 7.0