[Duda] Insertar imagen en documento Word

[Xavier]

Hola a todos.
Estoy utilizando plantillas Msword, desde PWC, para mis documentos, reemplazando etiquetas por sus valores, el problema es que ahora tengo que insertar una o varias imagenes en cada ficha de cada uno de los artículos y no sé como hacerlo. Alguien me puede indicar cómo hacerlo.
Gracias

[Kuk]

Xavier, usas un control específico para ello, o lo haces vía COM/OLE?

[Xavier]

Hola Kuk, lo hago via COM

[Dasije]

En PowerCOBOL todo lo que sea mover una imagen de una variable a otra, por el momento me es imposible, pero si podrías mirar alguna función si existe para "agregar" una imagen desde el archivo.

[Kuk]

Xavier, he encontrado esto... Inténtalo a ver qué tal:

WordApp.Selection.InlineShapes.AddPicture (App.Path & "\YourPicture.jpg")

[Xavier]

Gracias por las respuestas. Lo probaré y ya os diré como ha ido.

[Rapinto]

Xavier,

Tenho um exemplo dum programa que fiz, mas passa a imagem para Excel.
Penso que no Word será parecido, por isso aqui vai o exemplo:

 WORKING-STORAGE SECTION.
 01  EXCEL              OBJECT REFERENCE OLE.
 01  WORKBOOK           OBJECT REFERENCE OLE.
 01  SHEETS             OBJECT REFERENCE OLE.
 01  WORKSHEET          OBJECT REFERENCE OLE.
 01  CELL               OBJECT REFERENCE OLE.
 01  SHAPES             OBJECT REFERENCE OLE.
 01  OBJRANGE           OBJECT REFERENCE OLE.
 01  FITRANGE           OBJECT REFERENCE OLE.
 01  APPLICATION                    PIC X(20) VALUE "EXCEL.APPLICATION".
 01  OLE-TRUE                       PIC 1(1)  BIT VALUE B"1".
 01  FILLER                         PIC 1(7)  BIT.        
 01  OLE-FALSE                      PIC 1(1)  BIT VALUE B"0".
 01  FILLER                         PIC 1(7)  BIT.        
 01  ARRAY-ROW                      PIC S9(9) COMP-5.
 01  ARRAY-COL                      PIC S9(9) COMP-5.
 01  VAL                            PIC X(256).
 01  S-INDEX                        PIC S9(4) COMP-5 VALUE 1.
 01  INIRANGE                PIC X(13)          VALUE "A00001:A00001".
 01  ROWVAL                  PIC 9(005).
 01  ZROWVAL                 PIC ZZZZZ.
 01  XROWVAL   REDEFINES ZROWVAL   PIC X(005).
 01  CONTACHR                PIC 9(005).
 01  LOCCHR                  PIC 9(005).
 01  ROW-HEIGHT               PIC 9(005).
 01  ROW-WIDTH                PIC 9(005).
*
 01   FOTONUM                PIC X(256).
 01   FOTOEXTENSION          PIC X(032).
 01   FOTONAME               PIC X(256).
 01   PATH-IMAGE             PIC X(256).
 01   IMAGESIZE              PIC 9(018)    VALUE ZERO.
*
 01   WSLEFT                 PIC S9(005)  COMP-5.
 01   WSTOP                  PIC S9(005)  COMP-5.
 01   WSWIDTH                PIC S9(005)  COMP-5.
 01   WSHEIGHT               PIC S9(005)  COMP-5.
****  LINKTO E SAVEWITH 0 = FALSE -1 = TRUE (NÃO PODEM SER AMBOS 0
 01   LINKTO                 PIC S9(005)  COMP-5    VALUE 0.
 01   SAVEWITH               PIC S9(005)  COMP-5    VALUE -1.

Na Procedure Division:

       INVOKE OLE "CREATE-OBJECT" USING APPLICATION RETURNING EXCEL.
       INVOKE EXCEL "GET-WORKBOOKS" RETURNING WORKBOOK.
       INVOKE WORKBOOK "ADD"                 RETURNING WORKBOOK.
       INVOKE WORKBOOK "GET-WORKSHEETS" RETURNING SHEETS.
       INVOKE SHEETS "GET-ITEM" USING S-INDEX   RETURNING WORKSHEET.
*
       INVOKE EXCEL "SET-VISIBLE" USING OLE-TRUE.
*
*      INVOKE WORKSHEET "GET-SHAPES"  RETURNING SHAPES.
*

Em INIRANGE deve ser colocada a Linha/Coluna

*
             IF INIRANGE NOT = SPACE 
                  INVOKE WORKSHEET "GET-RANGE" USING INIRANGE RETURNING OBJRANGE
                  INVOKE OBJRANGE "ACTIVATE"
                  MOVE 64  TO ROW-HEIGHT
                  MOVE 20 TO ROW-WIDTH
                  INVOKE OBJRANGE "SET-RowHeight"    USING ROW-HEIGHT
                  INVOKE OBJRANGE "SET-ColumnWidth"  USING ROW-WIDTH
             END-IF
*
             IF  VAL NOT = SPACE
                  INVOKE WORKSHEET "GET-SHAPES" RETURNING SHAPES
 
                  INVOKE SHAPES "ADDPICTURE" USING VAL LINKTO SAVEWITH WSLEFT WSTOP WSWIDTH WSHEIGHT
                  ADD 64 TO WSTOP
             END-IF 

Talvez este exemplo ajude,
Un Saludo,
Rui

[Xavier]

Hola Rapinto, gracias por tu código. Estos días estoy con otro proyecto, pero cuando vuelva a retomar el de Word lo tendré en cuenta y, si lo resuelvo, lo publicaré para que otros puedan cogerlo como ejemplo.

Gracias