exportar a word??

[eberrios]

hola.. estoy haciendo una aplicación en visual basic con sql server estoy exportando algunos datos a un archivo plano y luego hago una copia de un archivo word y en esa copia combino correspondencia con el archivo plano... me imagino que existirá alguna forma mas simple de hacer esto pero no se ocurrió ninguna todo iba bien hasta que tuve un modelo de plantilla que no pude exportar jajajaja una que tenia una grilla entonces es una tabla con un registro y otra con varios registro y no se como hacerlo.................. bueno si alguien sabe como en Word combinar correspondencia de esa forma o alguna otra forma de exportar los archivos directamente sobre el word
espero me puedan ayudar
le envio el cod que estaba usando

[eberrios]

Open App.Path & "\Plantillas\Orden_de_compra.txt" For Output As #1

Write #1, "NUM_Anexo", "DES_Motivo_Contrato", "COD_Motivo_Contrato", _
"FEC_Inicio_Anexo", "FEC_Termino_Anexo", "COD_Centro_Costo", "NOM_Nombres", _
"NOM_Ap_Paterno", "NOM_Ap_Materno", "DES_Coordinador_Responsable_Emp", _
"COD_Tipo_Cuota", "MTO_Monto_Cuota", "NUM_Monto_Fijo_Pesos", "FEC_Firma_Contrato", _
"Coordinador Resp. Empresa", "Apod. Proveedor", "1º Apod. Altec", "2º Apod. Altec", _
"DES_Propuesta"

Write #1, rstAnexo.Fields("NUM_Anexo"), _
rstAnexo.Fields("DES_Motivo_Contrato"), _
rstAnexo.Fields("COD_Motivo_Contrato"), _
rstAnexo.Fields("FEC_Inicio_Anexo"), _
rstAnexo.Fields("FEC_Termino_Anexo"), _
rstAnexo.Fields("COD_Centro_Costo"), _
rstAnexo.Fields("NOM_Nombres"), _
rstAnexo.Fields("NOM_Ap_Paterno"), _
rstAnexo.Fields("NOM_Ap_Materno"), _
rstAnexo.Fields("DES_Coordinador_Responsable_Emp") , _
rstAnexo.Fields("COD_Tipo_Cuota"), _
rstAnexo.Fields("MTO_Monto_Cuota"), _
rstAnexo.Fields("NUM_Monto_Fijo_Pesos"), _
rstAnexo.Fields("FEC_Firma_Contrato"), _
Coord_resp_empresa, Apod_Proveedor, Apod_uno_Altec, Apod_dos_Altec, _
rstAnexo.Fields("DES_Propuesta")
Close #1

FileCopy (App.Path & "\Plantillas\Orden_de_Compra.doc"), (App.Path & "\Plantillas\" & vAnexo & ".doc")
Call ShellExecute(0, "open", App.Path & "\Plantillas\" & vAnexo & ".doc", vbNullString, vbNullString, 2)