Sunet avertizare

report ztest1.
include ole2incl.
data wordbasic type ole2_object.
data objectvar1 type ole2_object.
create object wordbasic 'Word.Basic' .
call method of wordbasic 'Beep' = objectvar1
exporting #1 = '1' .