error: variable de tipo object o la variable...

[Linuxera]

Hola Lucasiramos:
el codigo es este:

llamo a una funcion que esta en un modulo estandar, desde un formulario:
'formulario:
Call RellenarMarcas

'modulo estandar:
Public Function RellenarMarcas()
Call objWord.WDEscribirEnMarca(Nom.text, Nom.tag)
Call objWord.WDEscribirEnMarca(Apell.text, Apell.tag)
Call objWord.WDEscribirEnMarca(Dir.text, Dir.tag)
Call objWord.WDEscribirEnMarca(Pob.text, Pob.tag)
Call objWord.WDEscribirEnMarca(Prov.text, Prov.tag)
Call objWord.WDEscribirEnMarca(cpostal.text, cpostal.tag)
Call objWord.WDEscribirEnMarca(nif.text, nif.tag)
Call objWord.WDEscribirEnMarca(fechan.text, fechan.tag)
Call objWord.WDEscribirEnMarca(Eda.text, Eda.tag)
Call objWord.WDEscribirEnMarca(Emp.text, Emp.tag)
Call objWord.WDEscribirEnMarca(fechai.text, fechai.tag)
Call objWord.WDEscribirEnMarca(Tip.text, Tip.tag)
Call objWord.WDEscribirEnMarca(Sex.text, Sex.tag)
Call objWord.WDEscribirEnMarca(prof.text, prof.tag)
Call objWord.WDEscribirEnMarca(Tel.text, Tel.tag)
Call objWord.WDEscribirEnMarca(letr.text, letr.tag)
End Function

'modulo de clase:
Public Sub WDEscribirEnMarca(sTexto As String, sName As String)
For Each marca In docWord.ActiveDocument.Bookmarks
If marca.Name = sName Then
docWord.ActiveDocument.Bookmarks(sName).Range.Inse rtAfter text:=sTexto
End If
Next marca
End Sub
me da el error en la primera linea del modulo de clase.
Puedes ayudarme???
Gracias......