One way to do this would be to
- download the image to a temporary directory on your presentation server (the local PC). Use ARCHIVFILE_SERVER_TO_CLIENT .
- Then load the image to WORD using OLE automation
*The object to manipulate word...
INCLUDE ole2incl.
DATA:
word TYPE ole2_object,
docs TYPE ole2_object,
doc TYPE ole2_object,
selection TYPE ole2_object,
...
*Create the required objects...
CREATE OBJECT word 'WORD.APPLICATION'.
CALL METHOD OF word 'Documents' = docs.
CALL METHOD OF docs 'Add' = doc.
CALL METHOD OF doc 'Activate'.
GET PROPERTY OF word 'Selection' = selection.
...
*To make word visible
SET PROPERTY OF word 'Visible' = 1.
...
*To write the image ...
*define the inlineshapes or shapes objects and then CALL the word method AddPicture of these objects to add the image.
*vba code examples for this would be
*wd.Selection.InlineShapes.AddPicture will add a picture in line with the text;
*wdDoc.Shapes.AddPicture will add a picture that can float in front/behind text.
ActiveDocument.Shapes.AddPicture _
FileName:="C:\Program Files\Microsoft Office\" _
& "Office\Bitmaps\Styles\stone.bmp", _
LinkToFile:=True, SaveWithDocument:=True
I will let you put together the code. I will need to do this in a few months but have other deadlines currenlty.
...
*To save and exit word...
CALL METHOD OF doc 'SaveAs' EXPORTING #1 = 'c:\testword.doc'.
CALL METHOD OF word 'Quit'.
Please do post your results and award as appropriate if this is helpful.
Best regards,
Olivier
Bluesky
