关于 SAP OLE MS WORD

最新推荐文章于 2023-08-30 08:26:23 发布

原创最新推荐文章于 2023-08-30 08:26:23 发布 · 5k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#sap #application #table #object #alignment #border

SAP技术专栏收录该内容

113 篇文章

订阅专栏

本文介绍如何使用编程方式自动化创建Word文档，包括设置字体属性、插入文本、创建表格及填充内容等操作。通过代码示例展示了从新建文档到保存文档的全过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

基础声明：

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.