Rafa
30 de Diciembre del 2003

Tengo que pasar consultas realizadas con la opción SELECT en un recordset, a documentos de Word que previamente he creado, y no se como hacerlo. Lo que quiero es una especie de fusión de un documento de Word con datos de un recordset. Alguien puede ayudarme.

miguel
30 de Diciembre del 2003

Puedes hacer una plantilla de WORD y escribir palabras clave como por ejemplo "xcolorx" para escribir un color, que luego serán sustituidas por el resultado de la consulta. Para sustituirlas haz lo siguiente:
Dim datos As ADODB.Recordset
Dim appword As Word.Application
Dim doc1 As Word.Document

Set datos = New ADODB.Recordset
datos.Open "SELECT ...",conexion

Set appword = New Word.Application
Set doc1 = appword.Documents.Open(App.Path & "documentosnombredocumento.doc")

doc1.Range.find.Execute findtext:="xcolorx", replacewith:="" & datos("color")
doc1.Range.find.Execute findtext:="xañox", replacewith:="" & datos("nombreaño"), Replace:=wdReplaceAll

appword.Visible = True
appword.WindowState = wdWindowStateMaximize

Set doc1 = Nothing
Set appword = Nothing

datos.Close
Set datos = Nothing


también puedes utilizar createobject