Access - poner fecha en word

Hola, realizo una correspondencia de access a word y uno de los datos es fecha.A la hora de pasar la fecha de access a word, quiero que esta me aparezca completa, pongo un ejemplo: 10/12/06, desearia que esta fecha me apareciera 10 de diciembre de 2006.Utilizo access 97( en el trabajo).Utilizo la siguiente funcion para pasarla.

Execute findtext:="{FECHA}", replacewith:=Format(Me.FECHA, "dd-mmmm-yyyy"), Format:=True, Replace:=2

Saludos

Hola

Bueno aqui esta el ejemplo de como hacer eso.

Dim Fecha As String
Fecha = Day(Date) & " de " & MonthName(Month(Date)) & " del " & Year(Date)
Execute findtext:="{FECHA}", replacewith:=Fecha, Format:=True, Replace:=2

Espero sea esto lo que necesitas

Saludos
http://www.theemulator.tk

Gracias por tu respuesta me funciona, pero una cuestion, me coge la fecha del sistema como hago para que me ponga otra fecha diferente. Saludos

Bueno pues en realizadad lo coloque con la fecha del sistema como ejemplo.

Tu puedes especificar tu propia fecha creandola tu o tomando la fecha de un campo en una tabla o consulta.
Por ejemplo con una fecha creada por ti seria asi.

Dim NuevaFecha As Date
NuevaFecha= "31/12/2006"

Dim Fecha As String
Fecha = Day(NuevaFecha) & " de " & MonthName(Month(NuevaFecha)) & " del " & Year(NuevaFecha)
Execute findtext:="{FECHA}", replacewith:=Fecha, Format:=True, Replace:=2

Listo eso tomaria la informacion con la fecha que tu creaste en este caso 31/12/2006.

Nota que solo habia que cambiar donde decia Date con la fecha que tu crees.

Saludos
http://www.theemulator.tk

Muchas gracias. Saludos