REPORT ZLYTEST001.

INCLUDE OLE2INCL.

DATA: OLE   TYPE OLE2_OBJECT,

      VOICE TYPE OLE2_OBJECT,

      TEXT  TYPE STRING.

TEXT = 'I love You'.

DATA: IT_TLINE TYPE STANDARD TABLE OF TLINE WITH HEADER LINE.

CREATE OBJECT VOICE 'SAPI.SpVoice'.

SET PROPERTY OF VOICE 'Volume' = 100."音量0 -100

SET PROPERTY OF VOICE 'Rate' = 1."速度 -10 - 10

CALL METHOD OF VOICE 'Speak' = OLE"读

EXPORTING #1 = TEXT.

FREE OBJECT VOICE.