transparancy6应用程序与word和excel的交互

《transparancy6应用程序与word和excel的交互》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第六章应用程序与Word和Excel的交互回顾编写ActiveXDLL服务组件；ActiveXDLL组件的调试；兼容性设置和使用Implements实现接口；组件的Instancing属性设置；编写ActiveXEXE进程外组件；使用事件实现回调和客户端异步；2使用Word应用程序、文档对象实现桌面文档交互；使用Excel工作簿、工作表对象实现文档自动化；掌握Word自定义宏及相关的配置；在VBE中使用应用程序、文档、工作簿和工作表对象；自定义文档模板及操作；目标3Word和Excel对象Acti

2、veXEXE对象；可以在VB中进行对象和接口方式的调用；4层次式对象模型ApplicationDocumentsDocumentRangesRangeFields…5创建Word对象——绑定前期绑定DimwdAppAsWord.ApplicationDimwdDocAsWord.DocumentSetwdApp=NewWord.Application后期绑定DimwdAppAsObjectSetwdApp=CreateObject(“Word.Application”)wdApp.Document

3、s.Add6创建Word对象——GetObjectDimwdDocAsObjectSetwdDoc=GetObject("C:SPM-Sem1.doc")wdDoc.Application.Visible=True7Word应用程序对象——属性MyApp.Visible=TrueMyApp.ActiveDocument.SaveMyApp.Caption=“公文——20040102”MyApp.ActiveDocument.FullName=MyApp.Path&“A.DOC”MyApp.Wi

4、ndowState=wdWindowStateMaximize8Word应用程序对象——方法MyApp.ActivateDocName=Dir("*.DOC")WhileDocName<>EmptyApplication.PrintOut(adoc)DocName=Dir()WendMyApp.QuitMyApp.Repeat:MyApp.UndoNormal.Module2.Macro1:CallNormal.Module2.Macro1Application.RunMacroName:="No

5、rmal.Module2.Macro19Word文档对象——属性IfMyDoc.Saved=FalseThenMyDoc.SaveDebug.PrintActiveDocument.AttachedTemplate.FullNameSetmyRange=ActiveDocument.ContentmyRange.Font.Name="Arial"ActiveDocument.PassWord=“ABC”ActiveDocument.ReadOnly=TrueActiveDocument.SaveF

6、ormat=wdFormatRTF10Word文档对象——方法IfMyDoc.Saved=FalseThenMyDoc.SaveCallActiveDocument.SaveAs(“C:ABC.DOC”,wdFormatDocument,False,”OpenPwd”,True,”WritePwd”,True)SetmyRange=ActiveDocument.ContentmyRange.Font.Name="Arial"ActiveDocument.CloseActiveDocument.U

7、ndo(2)11DimwdAppAsWord.ApplicationSetwdApp=NewApplicationIf(wdAppIsNothing)OrErr.Number=0ThenWithwdApp.Visible=True.Activate.WindowState=wdWindowStateMaximize.Documents.Open(strDocFileName)Call.ActiveDocument.SaveAs(“C:ABC.TXT”,wdFormatEncodedText).A

8、ctiveDocument.Close.Quit(False)EndWith使用Word文档对象演示文档格式转换…12创建Excel对象前期绑定DimexAppAsExcel.ApplicationDimexDocAsExcel.WorkBookSetexApp=NewExcel.Application后期绑定DimexAppAsObjectSetexApp=CreateObject(“Excel.Application”)exApp.SheetsInNewWorkbook=1ex