|
|
Hola experto,tengo un problema con este programa. Tengo un archivo .doc, en ese archivo hay dos lineas, codigo y nombre.quiero llenar esos datos enviandolos desde un datawindw.tengo este scrip...pero sale error.derrepente estpy haciendo algo mal.te agradeceria mucho tu ayuda...gracias.
string ls
string codigo,nombres
oleobject lole_word
codigo=dw_1.object.codigo[dw_1.getrow()]
nombres=dw_1.object.nombres[dw_1.getrow()]
lole_word=create oleobject
ls=GetCurrentDirectory()+'\datos.doc'
IF lole_word.connecttonewobject('word.application.8')=0 THEN
lole_word.documents.open(ls)
ELSE
messagebox('ERROR','¡ No se puede abrir el archivo !',stopsign!)
return
END IF
lole_word.visible=false
IF lole_word.ActiveDocument.bookmarks.Exists("Codigo") THEN
lole_word.selection.goto(true,0,0,"Codigo")
lole_word.selection.typetext(codigo)
ELSE
lole_word.ActiveDocument.bookmarks.add("Codigo")
END IF
IF lole_word.ActiveDocument.bookmarks.Exists("Nombres") THEN
lole_word.selection.goto(true,0,0,'Nombres')
lole_word.selection.typetext(nombres)
ELSE
lole_word.ActiveDocument.bookmarks.add("Nombres")
END IF
lole_word.activedocument.save()
lole_word.activedocument.close()
lole_word.application.quit()
lole_word.disconnectobject()
destroy lole_word
|