客户要求按照固定格式输出到WORD模板中，目前OLE和DOI研究了均不太适合用于这种需求。

cl_docx_document类可以将WORD转化为XML文件，利用替换字符串方法将文档内容进行填充同

时不破坏WORD现有格式。

  首先需要将WORD的单元格用各种预定义的字符进行填充，为后续替换作准备。

  CALL METHOD cl_gui_frontend_services=>gui_uploadEXPORTINGfilename   = pv_filefiletype   = 'BIN'IMPORTINGfilelength = lv_lengthCHANGINGdata_tab   = lt_data_tab.CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'EXPORTINGinput_length = lv_lengthIMPORTINGbuffer       = lv_docxTABLESbinary_tab   = lt_data_tab."获取WORDCALL METHOD cl_docx_document=>load_documentEXPORTINGiv_data = lv_docxRECEIVINGrr_doc  = lr_docx.* Get main part where content of word document is storedlr_main = lr_docx->get_maindocumentpart( ).* Get data (XSTRING) of main partlv_xml = lr_main->get_data( ).* Convert to string for simple maintainingCALL FUNCTION 'CRM_IC_XML_XSTRING2STRING'EXPORTINGinxstring = lv_xmlIMPORTINGoutstring = lv_string.DEFINE replace_word.CLEAR: LR_ERROR,L_RETCODE,L_WORD.REPLACE ALL OCCURRENCES OF &2 IN lv_string WITH &1.END-OF-DEFINITION."调用宏替换replace_word gs_base-ename    'B01'.  "姓名replace_word gs_base-gesch    'B02'.  "性别replace_word gs_base-pernr    'B03'.  "ERP系统编码replace_word gs_base-zhr_mz   'B04'.  "民族replace_word gs_base-wtfld    'B05'.  "血型replace_word ''               'B06'.  "EHR系统编码replace_word gs_base-zhr_jg   'B07'.  "籍贯replace_word gs_base-zhr_whcd 'B08'.  "文化程序replace_word gs_base-usrid    'B09'.  "电话"  replace_word gs_base-usrid    'B10'.  "政治面貌

 替换的宏

  DEFINE replace_word.CLEAR: LR_ERROR,L_RETCODE,L_WORD.REPLACE ALL OCCURRENCES OF &2 IN lv_string WITH &1.END-OF-DEFINITION.