Code: Alles auswählen.
DATA document TYPE ole2_object.
DATA documents TYPE ole2_object.
DATA worddoc TYPE ole2_object.
DATA wordapp TYPE ole2_object.
DATA module1 TYPE ole2_object.
CREATE OBJECT p_worddoc 'Word.APPLICATION'.
GET PROPERTY OF worddoc 'Application' = wordapp. "NO FLUSH.
SET PROPERTY OF wordapp 'Visible' = 1.
GET PROPERTY OF wordapp 'Documents' = documents.
CALL METHOD OF documents 'Add'
EXPORTING
#01 = p_path.
GET PROPERTY OF wordapp 'ActiveDocument' = document.
Code: Alles auswählen.
Modul1.Document_mischen()
Code: Alles auswählen.
GET PROPERTY OF document 'Modul1' = module1.
CALL METHOD OF module1 'Document_mischen'.
Code: Alles auswählen.
call method of wordapp 'RUN' exporting #1 = 'Document_mischen'.