Power Builder - Power - Microsoft Word

 
Vista:

Power - Microsoft Word

Publicado por Javier (15 intervenciones) el 27/10/2006 22:03:41
Hola todos como puedo hacer para hacer que interactue power billder con Microsoft word, lo quiero hacer es generar unos contratos, osea en una ventana en mi apliacion tener una lista del personal y de ahi mandar esos datos al word y que me aparescan esos datos en una parte especifica del documento, alguien que me pueda dar una ayuda se lo agradeceria, chau
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Power - Microsoft Word

Publicado por Jancarlo (890 intervenciones) el 28/10/2006 21:48:23
Hola Javicho

Te pongo un ejemplo

* Crea una plantilla en word e Insertar marcadores en un documento (Insertar/Marcador)
Estimado:
[marcador_nombre]
Presente.-
etc,etc,

* Colocas este Script en PB (Lógicamente si lo deseas para un listado de trabajores lo colocas dentro de un bucle, eso ya es pichanga para ti):

OLEObject ole_word
integer li_result, li_n
string ls_nombre

ole_word = CREATE OleObject

li_result = ole_word.ConnectToNewObject("word.application")
IF li_result <> 0 THEN
DESTROY ole_word
MessageBox("OLE Error", "No puede conectarse a Word " &
+ "Código: " &
+ String(li_result))
SetPointer(Arrow!)
RETURN
END IF

//Abrir el documento
ole_word.documents.open("c:\contrato.doc")
ole_word.Visible=FALSE

//Obtenemos el registro actual
li_n=dw_1.GetRow()
ls_nombre = dw_1.GetItemString(li_n, "nombre")
ole_word.ActiveDocument.Bookmarks.item("marcador_nombre").Select
ole_word.Selection.typetext(ls_nombre)

//Imprimir
ole_word.Application.printout(0)
//Cerrar sin guardar
ole_word.quit(0)
//Nos desconectamos
ole_word.DisconnectObject()
DESTROY ole_word

Nota: Los marcadores normalmente permanecen ocultos en tu documento; pero si deseas verlos, te vas al menú: Herramientas/Opciones y en la ficha ver, activas la casilla: Marcadores.

Espero que esto te ayude. Cualquier duda me comentas.

Suerte !
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar