Estoy desarrollando una aplicación que imprime un documento Word
de notificaciones al estilo
de
Sr: <nombre y apellido>
Nota Numero: <9999>
etc.
¿como se sustituyen estos valores en el documento de Word, desde Access?




Set MiWord = CreateObject("Word.Application")
Set MiDoc = MiWord.Application.Documents.Open("Path.doc")
Set cambio = MiWord.ActiveWindow.Selection.Find
'busca en el documento Word la palabra #prueba y la sustituye por Hola
'en vez de Hola podria ser un recordset
 cambio.Execute "#prueba", False, , , , , , , , "Hola", 2
 Call MiDoc.SaveAs("Path.doc")
 MiWord.Quit
 Set MiWord = Nothing
 Set MiDoc = Nothing
 Set cambio = Nothing

.....................
Esto es exactamente lo que buscaba muchas gracias. Lo único que cambio de tu
ejemplo es :

Set cambio = MiWord.ActiveWindow.Selection.Find por esto otro:

Set doc_word = app_word.Documents.Open(CurrentProject.Path & "\MiDocumento.doc")
Set rang_word = doc_word.Range, de esta forma selecciono todo el documento
doc_word.

La diferencia es muy sutil aunque con esto me aseguro de trabajara con
"MiDocumento.doc" en lugar de la seleccion actual del documento activo.