Power Builder - Enviar graficos de power hacia word con marcadores

 
Vista:

Enviar graficos de power hacia word con marcadores

Publicado por Martin (97 intervenciones) el 12/04/2004 17:16:00
Hola Amigos Foristas
Revisando post anteriormente encontre codigos como es la conexion de power con word utilizando el objeto OLE, el amigo Oscar dio algunos alcances y son muy buenos: en estas lineas envio desde power unas un parametro ls_contacto (Nombre de la Persona Contacto) y lo pinta en el Word creado previamente un marcador llamado contacto
ole_object.ActiveDocument.Bookmarks.item("contacto").Select
ole_object.Selection.typetext(ls_contacto)
mi problema es como enviar una imagen(*.bmp, *.jpeg) ubicado en un directorio y que se muestre en word???
Muy agradecido
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:Enviar graficos de power hacia word con marcado

Publicado por Oscar (1178 intervenciones) el 13/04/2004 17:30:52
Hola Martin:
El ejemplo completo de Insertar una imagen en un marcador de Word:

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

// Insertar la imagen en un marcador llamado dos
ole_object.ActiveDocument.Bookmarks.item("dos").Select

//Al Addpicture se le pasa 4 parámetros:
//NombreArchivo, LinkToFile, SaveWith-Document
//Y el cuarto: Ole_object.Selection.Range, que significa:
//insertar la imagen en la posición del cursor.
ole_object.ActiveDocument.InlineShapes.AddPicture("C:\milogo.bmp", &
FALSE, TRUE, ole_object.Selection.Range)

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

RE:Enviar graficos de power hacia word con marcado

Publicado por martin (97 intervenciones) el 13/04/2004 19:50:04
Gracias por la aportacion Oscar
te cuento con esta instruccion me sale:
ole_object.ActiveDocument.InlineShapes.AddPicture("C:\milogo.bmp", &
FALSE, TRUE, ole_object.Selection.Range) el siguiente error:
Application terminated
Error: Error calling external object function addpicture at line 44 in clicked event of object cb_aceptar of w_pb_word
quitando el ultimo parametro se soluciono:
pero cuando ole_object.ActiveDocument.InlineShapes.AddPicture("C:\milogo.bmp", &
FALSE, TRUE)
Lo unico malo es que el grafico me sale en la parte superior de la hoja no en la posicion donde se encuentra mi marcador, si se pudiese solucionar esto seria fenomenal, por tanto sigo investigando en la ayuda de VBA de Word
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

RE:Enviar graficos de power hacia word con marcado

Publicado por Oscar (1178 intervenciones) el 13/04/2004 22:29:45
Que te puedo decir Martin...
Por seguridad probé con unos 4 marcadores, y la imagen se insertaba en el marcador correspondiente, sin ningún error.

Si bien el artículo de VB, menciona que el código es para Word 97 y Word 2000. Por mi parte, probé con Win ME, PB 9 y Word XP, y funcionó sin problemas.

Por si acaso, te paso la dirección donde está el código en VB. Lástima que esa página ya no exista, por lo que debes realizar el siguiente truco:

1. Con el Google buscas la frase:
"Create Custom Reports With Word Automation"
Nota: Debes incluir las comillas.

2. Luego NO pulses en el título del enlace, sino más bien donde dice: En Caché.

Para terminar, sería bueno que alguien más pruebe el script e indique si funciona. De esa manera podríamos ganar algo más en favor de PB. (Por si acaso, para insertar previamente un marcador en el documento de Word, se van al menú: Insertar/Marcador).
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

Muchas Gracias Oscar

Publicado por martin (97 intervenciones) el 13/04/2004 22:45:41
Gracias Oscar
Lo que planteas es cierto
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