|
|
Puedes usar este codigo, adaptalo a tu sistema,
no olvides q debes crear marcadores en word, si no sabes como hacer estos marcadores guiate con la ayuda del mismo word.
OLEObject contrato
contrato = CREATE OleObject
li_result = contrato.ConnectToNewObject("word.application")
IF li_result <> 0 THEN
DESTROY contrato
MessageBox("OLE Error", "No puede conectarse a Word Código: " + String(li_result))
SetPointer(Arrow!)
RETURN
END IF
//Abrir el documento Plantilla
contrato.documents.open("D:\MODELO CONTRATO.doc")
contrato.Visible=TRUE
for m=1 to dw_contrato.RowCount()
if dw_contrato.GetItemString(m,"flg_contrato") = "S" then
//Obtenemos el registro actual
ls_codpescador = dw_contrato.GetItemString(m,"cod_pescador")
ls_paterno = dw_contrato.GetItemString(m,"ap_paterno")
ls_materno = dw_contrato.GetItemString(m,"ap_materno")
ls_nombre = dw_contrato.GetItemString(m,"nombres")
ls_nombre = ls_paterno + " "+ls_materno + ", "+ls_nombre
contrato.ActiveDocument.Bookmarks.item("NOMBRE_TITULAR").Select
contrato.Selection.typetext(ls_nombre)
contrato.ActiveDocument.Bookmarks.item("DNI_TITULAR").Select
contrato.Selection.typetext(ls_codpescador)
contrato.activedocument.PrintOut(0)
contrato.activedocument.close(0)
contrato.quit()
contrato.DisconnectObject()
DESTROY contrato
end if
next
|