制作程序的帮助文档

  REPORT ztest_nyj2.
TYPE-POOLS icon.
TABLES sscrfields.
DATA functxt TYPE smp_dyntxt.
TYPE-POOLS : ole2 .
DATA : word TYPE ole2_object ,
       document TYPE ole2_object .

PARAMETERS: p_carrid TYPE s_carr_id,
            p_cityfr TYPE s_from_cit.
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2 .

INITIALIZATION.
  functxt-icon_id   = icon_ws_plane.
  functxt-quickinfo = 'Preselected Carrier'.

  functxt-icon_text = '操作手册'.
  sscrfields-functxt_01 = functxt.
  functxt-icon_text = 'UA'.
  sscrfields-functxt_02 = functxt.

AT SELECTION-SCREEN.
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      CALL METHOD OF word 'AppClose' .  "检测是否已打开过说明书文档
      FREE OBJECT word .
      CLEAR : word-handle , word-header .

      CREATE OBJECT word 'Word.Application' . "创建word应用程序
      SET PROPERTY OF word 'Visible' = 1 .
      CALL METHOD OF word 'Documents' = document .
      CALL METHOD OF document 'OPEN'
        EXPORTING
          #1 = '\\172.16.0.240\Project Management\123.doc'. "filename说明书所在的目录'如:\\192.168.1.1\stock\操用说明书\d.doc'
      STOP .
    WHEN 'FC02'.
      p_carrid = 'UA'.
      p_cityfr = 'Chicago'.

    WHEN OTHERS.
      ...
  ENDCASE.

START-OF-SELECTION.