vb学习教程 6

《vb学习教程 6》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

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

4、——方法MyApp.ActivateDocName=Dir("*.DOC")WhileDocName<>EmptyApplication.PrintOut(adoc)DocName=Dir()WendMyApp.QuitMyApp.Repeat:MyApp.UndoNormal.Module2.Macro1:CallNormal.Module2.Macro1Application.RunMacroName:="Normal.Module2.Macro19Word文档对象——属性IfMyDoc.Saved=FalseThenM

5、yDoc.SaveDebug.PrintActiveDocument.AttachedTemplate.FullNameSetmyRange=ActiveDocument.ContentmyRange.Font.Name="Arial"ActiveDocument.PassWord=“ABC”ActiveDocument.ReadOnly=TrueActiveDocument.SaveFormat=wdFormatRTF10Word文档对象——方法IfMyDoc.Saved=FalseThenMyDoc.SaveCallAc

6、tiveDocument.SaveAs(“C:ABC.DOC”,wdFormatDocument,False,”OpenPwd”,True,”WritePwd”,True)SetmyRange=ActiveDocument.ContentmyRange.Font.Name="Arial"ActiveDocument.CloseActiveDocument.Undo(2)11DimwdAppAsWord.ApplicationSetwdApp=NewApplicationIf(wdAppIsNothing)OrErr.Num

7、ber=0ThenWithwdApp.Visible=True.Activate.WindowState=wdWindowStateMaximize.Documents.Open(strDocFileName)Call.ActiveDocument.SaveAs(“C:ABC.TXT”,wdFormatEncodedText).ActiveDocument.Close.Quit(False)EndWith使用Word文档对象演示文档格式转换…12创建Excel对象前期绑定DimexAppAsExcel.Applicatio

8、nDimexDocAsExcel.WorkBookSetexApp=NewExcel.Application后期绑定DimexAppAsObjectSetexApp=CreateObject(“Excel.Application”)exApp.SheetsInNewWorkbook=1ex