基础声明: CREATE OBJECT gs_word 'WORD.APPLICATION' ."'WORD.BASIC'. IF sy-subrc NE 0. MESSAGE s000(su) WITH 'Error while creating OLE object!'. LEAVE PROGRAM . ENDIF . *--Setting object's visibility property SET PROPERTY OF gs_word 'Visible' = '1' . *--Opening a new document GET PROPERTY OF gs_word 'Documents' = gs_documents . CALL METHOD OF gs_documents 'Add' . *--Getting active document handle GET PROPERTY OF gs_word 'ActiveDocument' = gs_actdoc . "============== "下面这样写也行 *CALL METHOD OF gs_documents 'Add' = gs_actdoc. "A?ade un doc nuevo *CALL METHOD OF gs_actdoc 'Activate'. "Lo activa "============== *--Getting applications handle GET PROPERTY OF gs_actdoc 'Application' = gs_application . *--Setting the measurement unit GET PROPERTY OF gs_application 'Options' = gs_options . SET PROPERTY OF gs_options 'MeasurementUnit' = '1' . "CM *--Getting handle for the selection which is here the character at the *--cursor position GET PROPERTY OF gs_application 'Selection' = gs_selection . GET PROPERTY OF gs_selection 'Font' = gs_font . GET PROPERTY OF gs_selection 'ParagraphFormat' = gs_parformat . 字体声明: FORM sub_set_font USING p_gt_ziti p_gt_daxiao p_gt_bold p_gt_xieti p_gt_uline p_gt_duiqi. *--Setting font attributes SET PROPERTY OF gs_font 'Name' = p_gt_ziti ."字体 SET PROPERTY OF gs_font 'Size' = p_gt_daxiao . "大小 SET PROPERTY OF gs_font 'Bold' = p_gt_bold . "Not bold 粗体 SET PROPERTY OF gs_font 'Italic' = p_gt_xieti . "Italic 斜体 SET PROPERTY OF gs_font 'Underline' = p_gt_uline . "Not underlined 下划线 SET PROPERTY OF gs_parformat 'Alignment' = p_gt_duiqi ."justified ENDFORM. " sub_set_font 文本输出: CALL METHOD OF gs_selection 'TypeText' EXPORTING #1 = gt_string. 下一段落: GET PROPERTY OF gs_selection 'Paragraphs' = gs_paragraph . "下一个段落 CALL METHOD OF gs_paragraph 'Indent' . CALL METHOD OF gs_selection 'TypeText' EXPORTING #1 = gt_string. 表格基础声明: GET PROPERTY OF gs_actdoc 'Tables' = gs_tables . GET PROPERTY OF gs_selection 'Range' = gs_range . CALL METHOD OF gs_tables 'Add' = gs_table EXPORTING #1 = gs_range " Handle for range entity #2 = '5' "Number of rows #3 = '4'. "Number of columns 表内容插入: CALL METHOD OF gs_table 'Cell' = gs_cell EXPORTING #1 = gt_row "row #2 = gt_column. "column *--Getting the range handle to write the text GET PROPERTY OF gs_cell 'Range' = gs_range . *--Filling the cell SET PROPERTY OF gs_range 'Text' = gt_text . 表边框: GET PROPERTY OF gs_table 'Borders' = gs_table_border . SET PROPERTY OF gs_table_border 'Enable' = '1' . "With border 光标放在表后: GET PROPERTY OF gs_table 'Range' = gs_range . GET PROPERTY OF gs_range 'End' = gv_pos . SET PROPERTY OF gs_range 'Start' = gv_pos . CALL METHOD OF gs_range 'Select' . 换行: CALL METHOD OF gs_selection 'TypeParagraph' . 保存并显示,释放: CALL METHOD OF gs_actdoc 'SaveAs' EXPORTING #1 = 'c:/test123.doc'. FREE OBJECT gs_word.