Pasar datos de un datawindow a word

Tengo un problema con este programa. Tengo un archivo .doc, en ese archivo hay dos lineas, código y nombre. Quiero llenar esos datos enviándolos desde un datawindw. Tengo este script... Pero sale error. De repente estoy haciendo algo mal.te agradecería 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

1 Respuesta

Respuesta
No me queda claro cual es el problema que quieres resolver ya que si salvas el documento después de agregar los datos a los bookmarks aparecerán todos los códigos y todos los nombres en un mismo renglón.
Te mando la codificación para que puedas manejar los bookmarks.
string ls
string ls_codigo,ls_nombres
integer i
oleobject lole_word
lole_word=create oleobject
ls = GetCurrentDirectory()+'\datos.doc'
IF lole_word.ConnectToNewObject('word.application')=0 THEN
lole_word.Application.Visible=false
lole_word.Application.Activate()
lole_word.Application.Documents.open(ls)
ELSE
messagebox('ERROR','¡ No se puede abrir el archivo !',stopsign!)
return
end if
for i = 1 to dw_1.RowCount()
ls_codigo = dw_1.GetItemString(i,'codigo')
ls_nombres = dw_1.GetItemString(i,'nombres')
lole_word.activedocument.bookmarks.item('codigo').range.text = ls_codigo
lole_word.activedocument.bookmarks.item('nombre').range.text = ls_nombres
next
Bueno te explico. Tengo un documento algo así...
          Código :
          Nombres :
     xxxxxxxxxxxxxxxxx
     xxxxxxxxxxxxxxxxx
     xxxxxxxxxxxxxxxxx
... El código y el nombre los tengo en un datawindow;lo que necesito es llenar esos espacios(código y nombres) con los datos de la fila que seleccioné. Probé el código que me mandaste pero, sale error en, lole_word.application.activate() .
Antes de seguir con que versión de office estas trabajando
Bueno estoy trabajando con el office 2003.
Tienes razón esto es porque pusimos la aplicación como no visible para que corra correctamente puedes poner visible = true o quitar la linea Application.Activate

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Verificar si un datawindows esta vacío

Como puedo verificar si los campos de mi datawindows esta vacío .. Te doi un ejemplo para que me entiendas Tengo un datawindows tipo freeforn con los campo (código, nombre, dirección) y también tengo un botón que dice nuevo y otro botón guardar. El...
1 respuesta

Como abrir un documento de word con power builder

Me puedes ayudar por favor. Necesito abrir un documento de word en power builder.. Utilizando OLE. Tendrías la amabilidad de explicarme paso a paso.. Desde que colocas el OLE en el formulario..
1 respuesta

Validar campos vacíos access

Tengo varios formularios donde las personas debe ingresar información, como son furmularios con "Tabs" incluidos por la gran cantidad de información, a veces dejan campos en blanco. A la hora de guardarlos en la base no hay problemas, pero como esta...
2 respuestas

Power builder 11.0

Necesito una ayuda tengo este código que es en ue_validar //**permite autogenerar el numero e la cotizacion, para la cabecera y el detalle string ls_codigo, ls_mask long ll_codigo, ll_i, ll_total ls_mask='0000000000' select max(codigo) into...
1 respuesta

Como hago el botón modificar...

Tengo que programar el botón modificar ... Sin utilizar DW.. Ya probé como modify y no me responde ; mi base de datos esta conectado en obdc .. Peromi base de datos esta hecho en sql server 2005
1 respuesta

Búsqueda de dato en la BD

Primero Como podría validar una ventana de una manera optima de que todos los datos de dicha ventana sean ingresados. Segundo si ingreso un numero de documento, antes de guardarlo me busque en la base de datos si se encuentra ya grabado, si es SI,...
3 respuestas

Columnas de DW

¿Cómo estas? Mira necesito hacer una ventana que sea reutilizable y para eso necesito obtener las columnas de cualquier datawindow de donde se pueda llamar. En conclusión la pregunta es: Como puedo obtener las columnas de un datawindow por...
2 respuestas

Error al seleccionar un dato

Tengo una grilla, y selecciono con doble click el datos donde estoy parado y con ese dato busco en otra DW para mostrar. El programa se cae cuando hago doble click sobre otro objeto, ¿Cómo hago para que acepte el doble click solo dentro de la grilla...
1 respuesta

Cargar pdf en Ole objet desde una variable blob

Como puedo mostrar un archivo pdf (de cualquier forma ya sea en un objeto ole o abriendo acrobat reader), que esta almacenado en una variable blob.
1 respuesta

Hacer un filltro en power builder

Lo que quiero hacer es un filtro yo ya lo he hecho pero no me sale como yo quiero que sea, este es mi código esta en el evento other del sle_1 cuando le doy enter se ejecuta (me filtra por cod_cliente) Mi tabla "clientes" y sus campos (cod_cliente,...
2 respuestas