Morning,
I want to insert image in ms word using openedge 10.2a, and I want to display text beside
that pict, but that text always above the pict. Can anybody help to solve my problem ?
My sintaks :
Tq,
Frankk
I want to insert image in ms word using openedge 10.2a, and I want to display text beside
that pict, but that text always above the pict. Can anybody help to solve my problem ?
My sintaks :
Code:
DEFINE VARIABLE WordApplication AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE judul AS CHARACTER FORMAT 'x(200)' EXTENT 50 NO-UNDO.
CREATE "Word.Application" wordApplication.
wordApplication:VISIBLE=TRUE.
wordApplication:Documents:Add().
wordApplication:ACTIVATE.
wordApplication:Selection:pageSetup:LeftMargin = 86.
wordApplication:Selection:pageSetup:RightMargin = 29.
WordApplication:Selection:InLineShapes:AddPicture("c:\tmp\logo.bmp", FALSE, TRUE).
WordApplication:Selection:Style = "No Spacing".
WordApplication:Selection:Font:Name = "Courier".
WordApplication:Selection:Font:bold = TRUE.
WordApplication:Selection:Font:Size = 8.
ASSIGN judul[1] = 'MY Logo'
judul[2] = 'Telp :'
judul[3] = 'Web Address : [URL='http://www.blabla.co.id']www.blabla.co.id[/URL]'.
WordApplication:Selection:typetext(FILL(' ',20) + judul[1]).
WordApplication:Selection:TypeParagraph.
WordApplication:Selection:typetext(FILL(' ',20) + judul[2]).
WordApplication:Selection:TypeParagraph.
WordApplication:Selection:typetext(FILL(' ',20) + judul[3]).
WordApplication:Selection:TypeParagraph.
Tq,
Frankk
Last edited by a moderator: