Created by Jerry Wang, last modified on Oct 22, 2014

该工具可以用于模拟在webclient UI上点击了With Template button后选择一个支持web service的web template和web service response merge的操作.

按照consulting node 2047259 - Trouble shooting guide about word document merge with web service 的描述，将word template和web service response download至本地:

然后执行report，即可trigger word template与web service的merge操作.

REPORT tool_document_merge.
PARAMETERS: file1 TYPE string OBLIGATORY DEFAULT 'C:\Users\i042416\Desktop\Note2047259.docx',
            file2 TYPE string OBLIGATORY DEFAULT 'C:\Users\i042416\Desktop\LV_XPAYLOAD.xml'.

FORM upload_file USING iv_file_path CHANGING cv_file TYPE xstring.
  DATA:   l_filename TYPE string,
          l_rawtab   TYPE STANDARD TABLE OF raw255,
          l_len      TYPE i.

  l_filename = iv_file_path.
  CLEAR: l_rawtab, l_len.
  CALL METHOD cl_gui_frontend_services=>gui_upload
    EXPORTING
      filename                = l_filename
      filetype                = 'BIN'
    IMPORTING
      filelength              = l_len
    CHANGING
      data_tab                = l_rawtab
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      not_supported_by_gui    = 17
      error_no_gui            = 18
      OTHERS                  = 19.
  IF sy-subrc IS NOT INITIAL.
    WRITE:/ 'Error Occurred when Uploading file!' COLOR COL_NEGATIVE INTENSIFIED ON.
    RETURN.
  ENDIF.

  CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      input_length = l_len
    IMPORTING
      buffer       = cv_file
    TABLES
      binary_tab   = l_rawtab
    EXCEPTIONS
      failed       = 1
      OTHERS       = 2.
  ASSERT sy-subrc = 0.
ENDFORM.

START-OF-SELECTION.

  DATA: lv_template       TYPE xstring,
        lv_response       TYPE xstring,
        lv_wsdl_url       TYPE string,
        lv_ws_name        TYPE websname,
        lv_response_ns    TYPE xstring,
        lv_wsdl_operation TYPE string,
        lv_namespace      TYPE anyuri,
        lv_xdata          TYPE xstring,
        lo_docx           TYPE REF TO CL_DOCX_DOCUMENT,
        lo_main           TYPE REF TO CL_DOCX_MAINDOCUMENTPART,
        lv_template_xdata TYPE xstring,
        lv_xpayload       TYPE xstring,
        lv_data           TYPE xstring.

  PERFORM upload_file USING file1 CHANGING lv_template.
  PERFORM upload_file USING file2 CHANGING lv_response.

  CALL METHOD cl_crm_oi_util=>get_ws_url_from_template
    EXPORTING
      iv_data           = lv_template
    IMPORTING
      ev_wsdl_url       = lv_wsdl_url
      ev_wsdl_operation = lv_wsdl_operation.
  ASSERT cl_crm_oi_docx_helper=>has_word_addin_format( lv_template ) = abap_true.

  ASSERT cl_crm_oi_docx_helper=>has_content_control_format( lv_template ) = abap_true.

  cl_crm_oi_docx_helper=>replace_vars_uuid_with_path(
        CHANGING
          cv_docx_doc =     lv_template ).

  lo_docx = cl_docx_document=>load_document( lv_template ).
  lo_main = lo_docx->get_maindocumentpart( ).
  lv_template_xdata = lo_main->get_data( ).

  cl_crm_oi_docx_helper=>get_ws_info_from_template( EXPORTING iv_xdata = lv_template
                                                    IMPORTING ev_ws_name = lv_ws_name ).

  IF ( lv_ws_name IS NOT INITIAL OR lv_wsdl_url IS NOT INITIAL ) AND lv_response IS NOT INITIAL.
    CALL TRANSFORMATION crm_office_int_rt_add_ns
        SOURCE XML lv_response
        RESULT XML lv_response_ns.
    lv_xpayload = lv_response_ns.
  ENDIF.

  ASSERT  lv_xpayload IS NOT INITIAL.

  TRY.
      CALL METHOD cl_crm_oi_docx_transform_rt=>transform
        EXPORTING
          iv_xml_xstring           = lv_response_ns
          iv_wordml_xstring        = lv_template_xdata
          iv_uri                   = 'urn:sap-com:document:sap:soap:functions:mc-style'
          iv_contentcontrol_format = 'X'
          iv_cc_customxml          = cl_crm_oi_docx_helper=>m_doc_customxml
        IMPORTING
          ev_wordml_xstring        = lv_xdata.
    CATCH cx_oi_fault.
      WRITE: / 'merge error!'.
      RETURN.
  ENDTRY.

  lo_main->feed_data( lv_xdata ).

  lv_xdata = lo_docx->get_package_data( ).

  WRITE: / 'document merged successfully!'.

标签：docx,word,file,xstring,lv,merge,template,TYPE
来源： https://blog.csdn.net/i042416/article/details/95737281