2007 Sep 17 9:09 AM
Hello Everyone,
I am new to WWI, Anyone can send me any study material with examples.
My Email ID - sukesh.ku@gmail.com
Help will be highly appreciated.
Regards,
Sukesh.
2007 Sep 17 12:17 PM
Hello,
I'm not sure what you are looking for
but this is an example of OLE word
*&---------------------------------------------------------------------*
*& Report ZKRIS_OLE6_WORD
*&
*&---------------------------------------------------------------------*
*&
*& Made by KRiS DoNAlD
*&---------------------------------------------------------------------*
report zkris_ole6_word.
type-pools ole2 .
data: application type ole2_object.
data: word type ole2_object.
data: documents type ole2_object.
data: newdoc type ole2_object.
data: actdoc type ole2_object.
data: selection type ole2_object.
data: shapes type ole2_object.
data: tbox type ole2_object.
data: tbox_sel type ole2_object.
data: tb_sel type ole2_object.
*---------------------------------------------------------------------*
* Start of writing to Word *
*---------------------------------------------------------------------*
create object word 'WORD.APPLICATION' .
if sy-subrc ne 0 .
message s000(su) with 'Error while creating OLE object!'.
leave program .
endif .
get property of word 'documents' = documents.
call method of documents 'Add' = newdoc.
call method of newdoc 'Activate'.
*--Getting active document handle
get property of word 'activedocument' = actdoc .
*--Getting applications handle
get property of word 'Selection' = selection.
*--setting object's visibility property
set property of word 'visible' = '1' .
call method of selection 'TypeText'
exporting
#1 = 'blahh'.
get property of actdoc 'Shapes' = shapes .
call method of shapes 'AddTextbox' = tbox
exporting
#1 = 1
#2 = '99'
#3 = '90'
#4 = '207'
#5 = '153'.
get property of tbox 'Select' = tb_sel.
call method of selection 'TypeText'
exporting
#1 = 'inboxx'.