Estoy desarrollando una aplicación que imprime un documento Word
de notificaciones al estilo
de
Sr:
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.
(
geocities.com/es/ensolva/Descargas) (
geocities.com/es/ensolva) (
geocities.com/es)