Transparancy6应用程序与Word和Excel的交互.ppt
《Transparancy6应用程序与Word和Excel的交互.ppt》由会员分享,可在线阅读,更多相关《Transparancy6应用程序与Word和Excel的交互.ppt(33页珍藏版)》请在三一文库上搜索。
1、第六章,应用程序与Word和Excel的交互,2,回顾,编写ActiveX DLL服务组件; ActiveX DLL组件的调试; 兼容性设置和使用Implements实现接口; 组件的Instancing属性设置; 编写ActiveX EXE进程外组件; 使用事件实现回调和客户端异步;,3,使用Word应用程序、文档对象实现桌面文档交互; 使用 Excel工作簿、工作表对象实现文档自动化; 掌握Word自定义宏及相关的配置; 在VBE中使用应用程序、文档、工作簿和工作表对象; 自定义文档模板及操作;,目标,4,Word和Excel对象,ActiveX EXE对象; 可以在VB中进行对象和接口方
2、式的调用;,5,层次式对象模型,6,创建Word对象 绑定,前期绑定 Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application 后期绑定 Dim wdApp As Object Set wdApp = CreateObject(“Word.Application”) wdApp.Documents.Add,7,创建Word对象 GetObject,Dim wdDoc As Object Set wdDoc = GetObject(“C:SPM-Sem1.doc“) wdDo
3、c.Application.Visible = True,8,Word应用程序对象 属性,MyApp.Visible = True MyApp.ActiveDocument.Save MyApp.Caption = “公文20040102” MyApp.ActiveDocument.FullName = MyApp.Path & “A.DOC” MyApp.WindowState = wdWindowStateMaximize,9,Word应用程序对象 方法,MyApp.Activate DocName = Dir(“*.DOC“) While DocName Empty Applicatio
4、n.PrintOut(adoc) DocName = Dir() Wend MyApp.Quit MyApp.Repeat: MyApp.Undo Normal.Module2.Macro1: Call Normal.Module2.Macro1 Application.Run MacroName:=“Normal.Module2.Macro1,10,Word文档对象 属性,If MyDoc.Saved = False Then MyDoc.Save Debug.Print ActiveDocument.AttachedTemplate.FullName Set myRange = Activ
5、eDocument.Content myRange.Font.Name = “Arial“ ActiveDocument.PassWord = “ABC” ActiveDocument.ReadOnly = True ActiveDocument.SaveFormat = wdFormatRTF,11,Word文档对象 方法,If MyDoc.Saved = False Then MyDoc.Save Call ActiveDocument.SaveAs(“C:ABC.DOC”, wdFormatDocument,False,”OpenPwd”,True,”WritePwd”,True) Se
6、t myRange = ActiveDocument.Content myRange.Font.Name = “Arial“ ActiveDocument.Close ActiveDocument.Undo(2),12,Dim wdApp As Word.Application Set wdApp = New Application If (wdApp Is Nothing) Or Err.Number = 0 Then With wdApp .Visible = True .Activate .WindowState = wdWindowStateMaximize .Documents.Op
7、en (strDocFileName) Call .ActiveDocument.SaveAs(“C:ABC.TXT”, wdFormatEncodedText) .ActiveDocument.Close .Quit (False) End With,使用Word文档对象,演示文档格式转换,13,创建Excel对象,前期绑定 Dim exApp As Excel.Application Dim exDoc As Excel.WorkBook Set exApp = New Excel.Application 后期绑定 Dim exApp As Object Set exApp = Creat
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Transparancy6 应用程序 Word Excel 交互
链接地址:https://www.31doc.com/p-2202856.html