ole调用word文档的例子程序

《ole调用word文档的例子程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、*&**&ReportZTEST35**&**&**&**&**&*REPORTztest35*-一TneludeforOLE-enablingdefinitionsINCLUDEole2incl.*--Globalvariables*一一VariablestoholdOLEobjectandentityhandlesDATAgswordTYPEole2_object."OLEobjecthandleDATAgsdocumontsTYPEole2_object•^Documentsdatags_doc

2、umentTYPEole2_object.DATAgs_actdocTYPEole2_object•"ActivedocumentDATAgs_applicationTYPEole2_object."ApplicationDATAgs_optionsTYPEole2_object.，zApplicationoptionsDATAgs_actwinTYPEole2_object・"ActivewindowDATAgs_actpanTYPEole2_object."ActivepaneDATAgs_vie

3、wTYPEole2_object・"ViewDATAgs_selectionTYPEole2_object・''SelectionDATAgs_fontTYPEole2_object・"FontDATAgs_parformatTYPEole2_object•^ParagraphformatDATAgstablesTYPEole2object."TablesDATAgs_rangeTYPEole2_object•"RdngehandieforvariousrangesDATAgstableTYPEole

4、2object."OnetableDATAgstableborderTYPEole2object."TableborderDATAgs_cellTYPEole2_object・"OnecellofatableDATAgs_paragraphTYPEole2_object•^ParagraphDATAgvpos(5)TYPEn."PositioninformationfortableSTART-OF-SELECTION.*--CreatingOLEobjecthandlevariabioCREATEOB

5、JECTgsword'Word.Application'.IFsy-subreNE0.MESSAGEsOOO(su)WITH'ErrorwhilecreatingOLEobject!'.LEAVEPROGRAM.ENDIF.*--Settingobject"svisibilitypropertySETPROPERTYOFgs_word'Visible'二'1'.GETPROPERTYOFgsword'Documents，=gsdocuments.GETPROPERTYOFgsdocuments'Add

6、'=gsdocument.*--Gettinghandlefortheselectionwhichisherethecharacteratthe*一一cursorpositionGETPROPERTYOFgsword'Selection'=gsselection.GETPROPERTYOFgs_selectionJParagraphFormat，=gsparformat."文木位置GETPROPERTYOFgsselection'Font'=gsfont."设置字体******************

7、****************字体具体设曲f**************SETSETSETSETSETPROPERTYPROPERTYPROPERTYPROPERTYPROPERTYOFOFOFOFOFgs_font'Name'='TimesNewRoman'.gs_font'Size，二’16'.gs_font'Bold'=，1'•"Boldgs_font'Italic'二'O'."NotItalicgs_font'Underline，二'O'・"Notunderlined************

8、**********************文本位蜀具体设'音**************SETPROPERTYOFgs_parformat'Alignment'二T'・"Centered***********************文本的具体内容CALLMETHODOFgs_selection'TypeText'EXPORTING#1二text-000.DO4TIMES.CALLMETHODOFgs_selectionJTypeParagraph，.E