exportar a word??

[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)