Power Builder - enviar a QWord

 
Vista:

enviar a QWord

Publicado por Ricardo (37 intervenciones) el 21/03/2007 22:33:04
Buena tarde a todos, de antemano gracias por la atencion, mi consulta es la siguiente, donde consigo documentacion del manejo de WORD desde P.B. 7.x ; esto lo necesito por que estoy intentando abrir un docuemnto en Word y enviar los datos, para eso utilice el codigo fuente que esta al final del mensaje y el cual lo encontre aca en este foro; pero tengo varias inquietudes y no se como o en donde buscar, y son las siguientes:

1. Yo no puedo tener un archivo fijo como esta en el ejemplo..., asi que necesitaria saber como crear el documento, desde P.B.

2. Necesito que algunos de los textos en el documento de Word queden en formatos de negrilla, subrayado, centrado, justificados y con colores. Eso es posible?

3. necesito que el documento una vez se genere se cierre, se grabe.

4.Verificar si el archvo ya existe antes de grabarlo

5. La verdad me gusta leer y aprender, por eso les pregunto que si alguien tiene un manual o una direccion en internet o de como manejar estos objetos, en donde expliquen los eventos, o propiedades y si existen ejemplos mucho mejor. Para ponerme a estudiar.

6. Necesito saber en donde esta la documentacion full de los DW. Se que hay manual solo de DW pero no lo encuentro.

7. Necesito estudiar mas acerca de los controles OLE.

8. Al igual que necesito llevar a WORD, tambien lo encesito en Excel.

Muchas gracias a todos por la colabarion.

* Escribir en Word, desde PB.

string ls_connect
string ls_archivo='c:\midocumento.doc'
OLEObject ole_object
ole_object = CREATE OLEObject

ls_connect = "word.application.8"
IF ole_object.ConnectToNewObject(ls_connect) = 0 THEN
ole_object.Documents.open(ls_archivo)
ole_object.Visible=TRUE

//Insert algún texto en un nuevo párrafo
ole_object.Selection.TypeParagraph()
ole_object.Selection.typetext("Insertar este texto")
ole_object.Selection.TypeParagraph()

//Insertar texto en el primer marcador
//Previamente debes insertar un marcador en Word
//con: Insertar/Marcador
ole_object.ActiveDocument.Bookmarks[1].Select
ole_object.Selection.typetext("Hola!")

// Insertar texto en el marcador llamado Final
ole_object.ActiveDocument.Bookmarks.item("Final").Select
ole_object.Selection.typetext("Mundo!")

//ole_object.ActiveDocument.printout(0)
//ole_object.quit(0) // no guardar
ole_object.DisconnectObject()
end if
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