一个程序：SAP调用WORD，不使用宏

未做测试, 暂记备查.

 

原文地址:  http://blog.sina.com.cn/s/blog_3eefd36c01008cjc.html

说明：

将数据文件和word模板放在c盘根目录下, fill_ms_word_with_data 这个form里实现了邮件合并（不使用宏）.

REPORT  z_mailmerge_test3.

INCLUDE ole2incl.


DATA: txt_work_file LIKE rlgrap-filename VALUE
         'C:/data.txt'.

DATA: doc_work_file LIKE rlgrap-filename VALUE
         'C:/MailMerge.doc'.

DATA: h_word  TYPE ole2_object,
      wordapp TYPE ole2_object,
      worddoc TYPE ole2_object,
      wordobj TYPE ole2_object.

START-OF-SELECTION.

  PERFORM start_ms_word.
  PERFORM fill_ms_word_with_data.

*&---------------------------------------------------------------------*
*&      Form  start_ms_word
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM start_ms_word .

  DATA: xcode   LIKE sy-xcode,
        ok_code LIKE sy-xcode,
        rc TYPE i,
        platform TYPE i,
        registry_entry(255) TYPE c,
        reg_value TYPE string,
        temp_dir TYPE string.
  DATA: version_str(80) TYPE c,
        word_version TYPE i.

  DATA: documents TYPE ole2_object.

* Start with OLE automation
  CALL METHOD cl_gui_frontend_services=>registry_get_value
    EXPORTING
      root                = cl_gui_frontend_services=>hkey_classes_root
      key                 = 'Word.Basic/CurVer'
      value               = ''
    IMPORTING
      reg_value           = reg_value
    EXCEPTIONS
      get_regvalue_failed = 1
      cntl_error          = 2
      error_no_gui        = 3
      OTHERS              = 4.
  IF sy-subrc <> 0.
    RAISE download_problem.
  ENDIF.
  CALL METHOD cl_gui_cfw=>flush.
  version_str = reg_value.

  SHIFT version_str LEFT BY 11 PLACES.
  MOVE version_str TO word_version.

  IF word_version < 8.
    CREATE OBJECT wordobj 'Word.Basic'.
  ELSE.
    CREATE OBJECT worddoc 'Word.Document'.
    GET PROPERTY OF worddoc 'Application' = wordapp.
    SET PROPERTY OF wordapp 'Visible' = 1.
    GET PROPERTY OF wordapp 'WordBasic' = wordobj.
    CALL METHOD OF
        wordobj
        'FileClose'.
  ENDIF.
  CALL METHOD OF
      wordobj
      'AppShow'.

  IF word_version > 8.
    GET PROPERTY OF wordapp 'Documents' = documents.

    CALL METHOD OF
        documents
        'Open'

      EXPORTING
        #01       = doc_work_file  "file name
        #02       = 0.              "confirm conversion
*        #03 = 1              "ReadOnly
*        #04 = 1              "AddToRecentFile
*        #05 = ''             "PasswordDocument
*        #06 = ''             "PasswordTemplat
*        #07 = 0              "Revert
*        #08 = ''             "WritePasswordDocume
*        #09 = ''.            "WritePasswordTemplate
*        #10 = 4.             "Format 4=plain text
*                        #11 = 1255.   "Encoding: e.g. hebrew=1255
  ELSE.
    CALL METHOD OF
        wordobj
        'FileOpen'

      EXPORTING
        #01        = doc_work_file
        #02        = 0.
  ENDIF.

ENDFORM.                    " start_ms_word

*&---------------------------------------------------------------------*
*&      Form  fill_ms_word_with_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM fill_ms_word_with_data .
  
  DATA: passwort(15).

  CALL METHOD OF
      wordobj
      'MailMergeMainDocumentType'

    EXPORTING
      #01                         = 0.
  CALL METHOD OF
      wordobj
      'MailMergeOpenDataSource'

    EXPORTING
      #01                       = txt_work_file
      #02                       = 0
      #03                       = 1
      #04                       = 0
      #05                       = 0
      #06                       = passwort.
  CALL METHOD OF
      wordobj
      'MailMergeEditMainDocument'.
  CALL METHOD OF
      wordobj
      'MailMergeToDoc'.

ENDFORM.                    " fill_ms_word_with_data