请教:如何在Delphi里截获WORD的消息`` 请教:如何在Delphi里截获WORD的消息 例如--选中 插入 删除 保存...使用ole,word Application 都可以的谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 截获WORD的消息?用OLE ,WORD APPLICATION可能吗?你指的是不是在DELPHI中实现WORD的 选中、插入、删除、保存操作呀如果是这样的话,可以看一看Delphi与Word之间的融合技术 (0分)一、VBA代码含义Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处理系统,它集成了Microsoft Visual Basic,可以通过编程来实现对Word功能的扩展。Microsoft Visual Basic在word中的代码即Word的宏,通过编写Word宏,可实现一些文档处理的自动化,如实现文档的自动备份、存盘等,可扩展Word文档的功能,因此,能够充分利用Word的特性,甚至使Word成为自己软件的一部分。Word的宏既有有利的一部分,因为它能够帮助我们实现文档的自动化,但是Word的宏也不是纯粹的有利,有时它可能危害我们的文档、计算机系统甚至网络,从最开始的Taiwan NO1宏病毒到现在的Melissa宏病毒,从最开始的简单的提示,耗尽系统资源到现在的乱发电子邮件,将个人的信息发送到网络上,甚至向硬盘的Autoexec.bat(自动批处理文件)中添加Deltree C: -y,破坏整个Windows系统。二、Word中内嵌的Com技术可以说Word是对Com技术支持最好的软件,这样说似乎是太极端了一点,但是Word提供的强大的编程接口技术却能够是我们通过程序控制Word的任何一部分。无论是文件的打开、存盘、打印还是文档中表格的自动绘制。通过编程软件,可以灵活的操纵word,这里只以Borland Delphi为例,进行详细描述:1、 在Delphi中调用Word软件/文件的方法在Word中调用Word软件,归纳起来有三种方法:。通过Delphi的控件TOleContainer 将Word嵌入a.使用Delphi提供的Servers控件调用Word,使用Word的属性b.通过真正的Com技术,将Office软件目录中文件MSWORD9.OLB中的类库全部导入Delphi中,利用Com技术编程c.使用CreateOleObject将启动Word,然后以Ole方式对Word进行控制。2、 对几种方法的难易程度的判别a.通过Delphi的控件TOleContainer 将Word嵌入这是最简单的Ole嵌入,能够直接将Word文档调用,只需要使用ToleContainer.Run就可以将Word文档直接启动。且这样启动的Word文档与Delphi程序是一个整体(从界面上看),但是它存在不可克服的缺点,即不能通过Delphi控制Word文档,也就不能实现将灵活操纵Word的目的。b.使用Delphi提供的Servers控件调用Word,使用Word的属性使用Delphi的Servers控件来操纵Word,在编程时Delphi能够实现代码提示,总体上看能够较好的实现Delphi对Word的控制,但是还有一些Word的功能不能在Delphi中调用(比如自己编写的VBA宏代码)。且实现功能时本来在VBA代码中可选则参数在Delphi调用的时候必须添加,否则,连编译都不能通过。本方式启动的Word与Delphi程序分属两个窗体。此办法仅能作为一个参考。c.通过真正的Com技术,将Office软件目录中文件MSWORD9.OLB中的类库全部导入Delphi中,利用Com技术编程利用真正的Com技术,将MsWord9.OLD文件类库导入,然后利用Com技术进行使用。整体上类似使用Delphi的Servers控件,稍微比Servers控件麻烦,优缺点与Servers控件相同。d.使用CreateOleObject将启动Word,然后以Ole方式对Word进行控制。本办法是使用以CreateOleObjects方式调用Word,实际上还是Ole,但是这种方式能够真正做到完全控制Word文件,能够使用Word的所有属性,包括自己编写的VBA宏代码。与Servers控件和com技术相比,本方法能够真正地使用Word的各种属性,和在VBA中编写自己的代码基本一样,可以缺省的代码也不需要使用。本方式启动的Word与Delphi程序分属两个窗体。缺点是使用本方法没有Delphi代码提示,所有异常处理均需要自己编写,可能编写时探索性知识比较多。三、Word宏编辑器Word能够真正地进行VBA代码的编辑,可以编写窗体、函数。进入Word宏编辑器的方法:工具->宏->Visual Basic编辑器,可进入Visual Basic编辑器界面。Word的Visual Basic编辑器界面和真正的Visual Basic编辑器基本相同,在此不再向详述。在VBA代码中,可以添加用户窗体、模块、类模块。用户窗体、模块、类模块的概念和Visual Basic完全相同。注释也与Visual Basic完全相同。可以将光标停留在窗体、模块的任何一个子程序上,直接按“F5”运行当前子程序。四、Word的宏的概述Word充分地将文档编辑和VB结合起来,真正地实现文档的自动化。使用Word编程,类似于使用Visual Basic,所不同的是,在Word中,能够直接运行某一个子程序,直接看见结果,Word的宏,只能解释运行,而Visual Basic,现在已经能够编写成真正的机器码,从代码的保护上来说,应该尽可能地减少Word的VBA代码数量,尤其是关键的代码。VBA宏,可分成四种:1、 和命令名相同的宏如FileSave,FileOpen,如果在VBA代码中包含与Word同名的函数,则直接执行这些VBA代码,忽略Word本身的命令。2、 Word内特定的宏这些宏包含AutoExec(启动 Word 或加载全局模板)、AutoNew(每次新建文档时)、AutoOpen(每次打开已有文档时)、AutoClose(每次关闭文档时),AutoExit(退出 Word 或卸载全局模板时)。如果VBA代码中含有这些名称的函数,则满足相应的条件,相应代码就自动执行。3、 相应事件的VBA宏这些宏是由事件触发的宏,如Document_Close在文档关闭的时候触发事件,Document_New在新建文档的时候触发,Document_Open在打开文档的时候触发。4、 独立的宏自己编写的VBA代码,即不属于上面几种情况的VBA代码,可以被其他VBA代码调用,更重要的是,可以被其他程序调用。这样,我们就可以屏弃Word自动执行的宏,通过Delphi直接调用相应宏来达到目的。五、Word命令宏的详细描述Word本身的命令函数包含很多,但是无论是word联机帮助还是MSDN帮助,都没有这方面的介绍,因此只能凭自己的实验取探索,初步探测的函数如下:宏名 解释 注释FileNew 新建 FileNewDefault 新建空白文档 FileSaveAs 另存为 FileOpen 打开 FileClose 关闭 FilePrint 打印 FilePrintPreview 打印预览 ToolsCustomize 工具栏里面的自定义 ToolsOptions 工具选项 ToolsRevisions 突出显示修订 ToolsReviewRevisions 接受或拒绝修订 ToolsRevisionMarksAccept 接受修订 ToolsRevisionMarksReject 拒绝修订 ToolsRevisionMarksToggle 修订 ToolsMacro 宏 ToolsRecordMacroToggle 录制新宏 ViewSecurity 安全性 ViewVBCode 查看VB编辑器环境 FileTemplates 模板和可加载项 ToolsProtectUnprotectDocument 解除对文档的保护 InsertHyperlink 插入超级链接 EditHyperlink 编辑超级链接 DeleteHyperlink 删除超级链接 EditLinks 查看、删除链接 EditPasteAsHyperlink 粘贴超级链接 FormatStyle 样式 EditBookMark 书签 yzhshi (2001-11-18 17:54:00) 这是我自己写的,结合自己的经验,在这里贡献出来,供大家共享。里面有很多用词、观点也许不是特别确切,希望大家指出。过几天再将一些具体的代码写出来(目前没有仔细整理)。 yzhshi (2001-11-18 18:03:00) [center]OleWord时一些用用的代码[/center][center][email protected][/center]一、Delphi程序启动Word采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为:首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在,则直接连接,如果没有Word程序,则使用CreateOleObject('Word.Application')启动Word二、Delphi程序新建Word文稿格式:WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)Template: 使用模板的名称,NewTemplate: 新建文档的类型,True表示为模板,False表示为文档DocumentType: 文档类型,默认为空白文档Visible: 打捞的窗口是否可见举例:Doc_Handle:=Word_Ole.Documents.Add(Template:='C:\Temlate.dot',NewTemplate:=False);三、Delphi程序打开Word文稿格式:WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument, PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate, Format,Encoding,Visible)FileName: 文档名(包含路径)Confirmconversions: 是否显示文件转换对话框ReadOnly: 是否以只读方式打开文档AddToRecentFiles: 是否将文件添加到"文件"菜单底部的最近使用文件列表中PassWordDocument: 打开此文档时所需要的密码PasswordTemplate: 打开此模板时所需要的密码Revert: 如果文档已经,是否重新打开文档WritePasswordDocument: 保存对文档更改时所需要的密码WritePasswordTemplate: 保存对模板进行更改时所需要的密码Format: 打开文档时所需使用的文件转换器Encoding: 所使用的文档代码页Visible: 打开文档的窗口是否可见举例:Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False, AddToRecentFiles:=False);四、Delphi程序保存Word文稿<br />格式:WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,<br /> AddToRecentFiles, WritePassword, ReadOnlyRecommended, <br /> EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, <br /> SaveAsAOCELetter)<br /><br />FileName: 文件名。默认为当前文件夹和文件名。<br />FileFormat 文档保存的格式。<br />LockComments SaveFormsData 如果为 True,则将窗体中用户输入的数据存为一条数据记录。<br />SaveAsAOCELetter 如果文档包含一个附加,当此属性值为 True 时,将文档存为一篇 AOCE 信笺(同时保存邮件)。<br /><br />举例:<br />Word_Ole.Documents.SaveAs(FileName:=Doc_File,FileFormat=wdFormatDocument,<br /> AddToRecentFiles=False);<br /><br />五、从数据库读取文件到本地硬盘和从本地硬盘读取文件到数据库<br /><br />在数据库上使用Image二进制字段保存,使用Stream流的方式。<br /><br />创建文件流:<br /> Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);<br /> Word_FileStream.Position:=0;<br /><br />保存到数据库的Image字段:<br /> TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);<br /><br />从数据库读取文件到本地硬盘:<br /> TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);<br /><br />释放文件流:<br /> Word_FileStream.Free;<br /><br />六、全局消息的定义<br />因为word和Delphi程序是两个软件,相互之间通讯比较麻烦,所以使用全局消息的方法进行。<br />全局消息必须首先注册,Windows返回系统空闲的消息号,当注册的消息相同时,<br />Windows系统返回同一个值,这样就保证了使用这个消息号在两个程序之间通讯。<br /><br />定义消息的办法:<br /> szMessageString: pchar = 'XIDIAN_11_Stone';<br /> FMyJoinMessage := RegisterWindowMessage(szMessageString);<br /><br />发送消息的方法:<br /> SendMessage(对方句柄,消息,消息附带短变量,消息附带长变量)<br /><br />七、Delphi程序接收消息的方法<br /> Delphi接收消息有两种,一是重载特定消息,二是重载WndProc函数,在里面选择相应消息进行处理。<br /> 法一,每次只能处理一条消息,而法二能够同时处理多条消息。<br /><br /> 对于法二,声明如下:<br /> procedure WndProc(var Message: TMessage);override<br /> 必须注意,使用时需要在处理完自己消息处理后继承WndProc(Message)函数,否则系统会崩溃!<br /><br />八、Word中Combo对话框的动态生成以及Change事件<br /> 建立类模块Combohander,在内部定义事件<br /> Public WithEvents ComboBoxEvent As Office.CommandBarComboBox<br /><br /> 定义Combo控件产生事件的模块<br /> Dim ctlComboBoxHandler As New ComboBoxHandler<br /><br /> 产生Combo对话框<br /> Set Cbo_ChooseDoc = CommandBars("添加的菜单").Controls.Add(Type:=msoControlComboBox, Temporary:=True)<br /><br /> 进行文件句柄设置,以产生Combo_Change事件<br /> Set ctlComboBoxHandler.ComboBoxEvent = Cbo_ChooseDoc <br /><br /> 产生事件后,在类模块Combohander内选择ComboBoxEvent的Change事件,即可书写事件代码<br /> Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)<br /><br />九、一些Word的事件<br /> VBA代码中处理的Word事件有:Document_Close<br /> Application事件中需要处理的有:DocumentBeforeClose,DocumentChange。<br /><br /> Document_Close:事件在文档关闭时产生事件<br /> DocumentBeforeClose:在文档被关闭以前先于Word判断文档是否保存,给出相应提示并进行相应处理。<br /> DocumentChange:文档切换,在文档从自己修改的文稿和其他人修改的文稿之间切换产生事件,<br />主要处理设置文档权限等。实例代码:if WordApp.Visible=false then //运行Word,并新建一文档 WordApp.Visible:=true; filename:=''; tempboolean:=false; WordApp.Documents.Add(filename,tempboolean); if wordtype.radiogroup1.ItemIndex=0 then WordApp.ActiveDocument.PageSetup.Orientation:=wdOrientLandscape;//将纸张调为横向 with WordApp.Selection do//将标题写入Word文档 begin Paragraphs.Alignment:=1; Font.Size:=20; Font.Bold:=1; TypeText(panel12.Caption); end; with WordApp.Selection do//将各参数还原 begin TypeText(#13); Paragraphs.Alignment:=0; Font.Size:=11; Font.Bold:=0; end; for i:=0 to rect_num-1 do //将矩形对应的模块(文字、图、表)写入Word文档 begin temptext:=copy(Word_Text[i],1,pos('_',Word_Text[i])-1); if temptext='文字材料' then begin pathname:=extractfilepath(application.ExeName)+'Text\'; temptext:=copy(Word_Text[i],pos('_',Word_Text[i])+1,length(Word_Text[i])); filename:=pathname+temptext+'.txt'; range:=''; confirm:=false; link:=false; attachment:=false; WordApp.Selection.TypeParagraph; WordApp.Selection.InsertFile(filename,range,confirm,link,attachment); end; if temptext='统计分析表' then begin pathname:=extractfilepath(application.ExeName)+'Tables\'; temptext:=copy(Word_Text[i],pos('_',Word_Text[i])+1,length(Word_Text[i])); filename:=pathname+temptext+'.htm'; range:=''; confirm:=false; link:=false; attachment:=false; start:=WordApp.Selection.Get_Start; WordApp.Selection.InsertFile(filename,range,confirm,link,attachment); endof:= WordApp.Selection.Get_Start; WordApp.ActiveDocument.Range(start,endof).select; WordApp.Selection.Font.Name:='宋体'; WordApp.Selection.Font.Size:=9; WordApp.Selection.Set_Start(endof); end; if temptext='统计分析图' then begin pathname:=extractfilepath(application.ExeName)+'StatBmp\'; temptext:=copy(Word_Text[i],pos('_',Word_Text[i])+1,length(Word_Text[i])); filename:=pathname+temptext+'.bmp'; start:=WordApp.Selection.Range; withfilesave:=true; wordApp.Selection.TypeText(' '); WordApp.Selection.Paragraphs.Alignment:=1; WordApp.Selection.InlineShapes.AddPicture(filename,attachment,withfilesave,start); end; end; WordApp.Disconnect;end; 3Q Drate~``不过我的意思是...如果我已经在WordApplication中增加了新的菜单我怎样才能响应新的菜单项的click事件 ^^ 将程序缩到“托盘”后,为什么死活就是弹不出菜单呢??? delphi 导入的actionx控件以及其它组件如何删除呢? 急,有没有人知道啊(在线等) Delphi中控制WORD 创建附加数据库 请教这句比较简单的SQL语句(只要稍微点拨一下即可),非常感谢! 控件、底层设计高高手,看看你做个没?帮帮我 /**************DELPHI的OLE容器与PROJECT2000兼容性???**************/ 请教各位大虾:怎么才能卸载掉动态生成的FRAME? *.xls应该用什么东西打开? 怎么样实现在这样的一个数据库功能 2的5次方怎样表示????
一、VBA代码含义
Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处
理系统,它集成了Microsoft Visual Basic,可以通过编程来实现对Word功能的扩展。
Microsoft Visual Basic在word中的代码即Word的宏,通过编写Word宏,可实现一些文档处理的
自动化,如实现文档的自动备份、存盘等,可扩展Word文档的功能,因此,能够充分利用Word的
特性,甚至使Word成为自己软件的一部分。
Word的宏既有有利的一部分,因为它能够帮助我们实现文档的自动化,但是Word的宏也不是纯粹
的有利,有时它可能危害我们的文档、计算机系统甚至网络,从最开始的Taiwan NO1宏病毒到现
在的Melissa宏病毒,从最开始的简单的提示,耗尽系统资源到现在的乱发电子邮件,将个人的
信息发送到网络上,甚至向硬盘的Autoexec.bat(自动批处理文件)中添加Deltree C: -y,破坏
整个Windows系统。二、Word中内嵌的Com技术
可以说Word是对Com技术支持最好的软件,这样说似乎是太极端了一点,但是Word提供的强大的编
程接口技术却能够是我们通过程序控制Word的任何一部分。无论是文件的打开、存盘、打印还是文
档中表格的自动绘制。
通过编程软件,可以灵活的操纵word,这里只以Borland Delphi为例,进行详细描述:
1、 在Delphi中调用Word软件/文件的方法
在Word中调用Word软件,归纳起来有三种方法:
。通过Delphi的控件TOleContainer 将Word嵌入
a.使用Delphi提供的Servers控件调用Word,使用Word的属性
b.通过真正的Com技术,将Office软件目录中文件MSWORD9.OLB中的类库全部导入Delphi中,
利用Com技术编程
c.使用CreateOleObject将启动Word,然后以Ole方式对Word进行控制。2、 对几种方法的难易程度的判别a.通过Delphi的控件TOleContainer 将Word嵌入这是最简单的Ole嵌入,能够直接将Word文档调用,只需要使用ToleContainer.Run就可以将Word文
档直接启动。且这样启动的Word文档与Delphi程序是一个整体(从界面上看),但是它存在不可克
服的缺点,即不能通过Delphi控制Word文档,也就不能实现将灵活操纵Word的目的。b.使用Delphi提供的Servers控件调用Word,使用Word的属性
使用Delphi的Servers控件来操纵Word,在编程时Delphi能够实现代码提示,总体上看能够较好的实
现Delphi对Word的控制,但是还有一些Word的功能不能在Delphi中调用(比如自己编写的VBA宏代码)。
且实现功能时本来在VBA代码中可选则参数在Delphi调用的时候必须添加,否则,连编译都不能通过。
本方式启动的Word与Delphi程序分属两个窗体。
此办法仅能作为一个参考。c.通过真正的Com技术,将Office软件目录中文件MSWORD9.OLB中的类库全部导入Delphi中,
利用Com技术编程
利用真正的Com技术,将MsWord9.OLD文件类库导入,然后利用Com技术进行使用。
整体上类似使用Delphi的Servers控件,稍微比Servers控件麻烦,优缺点与Servers控件相同。d.使用CreateOleObject将启动Word,然后以Ole方式对Word进行控制。
本办法是使用以CreateOleObjects方式调用Word,实际上还是Ole,但是这种方式能够真正做到完全
控制Word文件,能够使用Word的所有属性,包括自己编写的VBA宏代码。
与Servers控件和com技术相比,本方法能够真正地使用Word的各种属性,和在VBA中编写自己的代码
基本一样,可以缺省的代码也不需要使用。
本方式启动的Word与Delphi程序分属两个窗体。
缺点是使用本方法没有Delphi代码提示,所有异常处理均需要自己编写,可能编写时探索性知识比较多。三、Word宏编辑器
Word能够真正地进行VBA代码的编辑,可以编写窗体、函数。
进入Word宏编辑器的方法:工具->宏->Visual Basic编辑器,可进入Visual Basic编辑器界面。
Word的Visual Basic编辑器界面和真正的Visual Basic编辑器基本相同,在此不再向详述。
在VBA代码中,可以添加用户窗体、模块、类模块。用户窗体、模块、类模块的概念和Visual Basic
完全相同。注释也与Visual Basic完全相同。
可以将光标停留在窗体、模块的任何一个子程序上,直接按“F5”运行当前子程序。四、Word的宏的概述
Word充分地将文档编辑和VB结合起来,真正地实现文档的自动化。使用Word编程,类似于使用
Visual Basic,所不同的是,在Word中,能够直接运行某一个子程序,直接看见结果,Word的宏,
只能解释运行,而Visual Basic,现在已经能够编写成真正的机器码,从代码的保护上来说,应该尽
可能地减少Word的VBA代码数量,尤其是关键的代码。
VBA宏,可分成四种:
1、 和命令名相同的宏
如FileSave,FileOpen,如果在VBA代码中包含与Word同名的函数,则直接执行这些VBA代码,忽略Word
本身的命令。
2、 Word内特定的宏
这些宏包含AutoExec(启动 Word 或加载全局模板)、AutoNew(每次新建文档时)、AutoOpen(每次打
开已有文档时)、AutoClose(每次关闭文档时),AutoExit(退出 Word 或卸载全局模板时)。
如果VBA代码中含有这些名称的函数,则满足相应的条件,相应代码就自动执行。
3、 相应事件的VBA宏
这些宏是由事件触发的宏,如Document_Close在文档关闭的时候触发事件,Document_New在新建文档的时
候触发,Document_Open在打开文档的时候触发。
4、 独立的宏
自己编写的VBA代码,即不属于上面几种情况的VBA代码,可以被其他VBA代码调用,更重要的是,可以被
其他程序调用。
这样,我们就可以屏弃Word自动执行的宏,通过Delphi直接调用相应宏来达到目的。
五、Word命令宏的详细描述
Word本身的命令函数包含很多,但是无论是word联机帮助还是MSDN帮助,都没有这方面的介绍,因此只能
凭自己的实验取探索,初步探测的函数如下:
宏名 解释 注释
FileNew 新建
FileNewDefault 新建空白文档
FileSaveAs 另存为
FileOpen 打开
FileClose 关闭
FilePrint 打印
FilePrintPreview 打印预览
ToolsCustomize 工具栏里面的自定义
ToolsOptions 工具选项
ToolsRevisions 突出显示修订
ToolsReviewRevisions 接受或拒绝修订
ToolsRevisionMarksAccept 接受修订
ToolsRevisionMarksReject 拒绝修订
ToolsRevisionMarksToggle 修订
ToolsMacro 宏
ToolsRecordMacroToggle 录制新宏
ViewSecurity 安全性
ViewVBCode 查看VB编辑器环境
FileTemplates 模板和可加载项
ToolsProtectUnprotectDocument 解除对文档的保护
InsertHyperlink 插入超级链接
EditHyperlink 编辑超级链接
DeleteHyperlink 删除超级链接
EditLinks 查看、删除链接
EditPasteAsHyperlink 粘贴超级链接
FormatStyle 样式
EditBookMark 书签
yzhshi (2001-11-18 17:54:00)
这是我自己写的,结合自己的经验,在这里贡献出来,供大家共享。
里面有很多用词、观点也许不是特别确切,希望大家指出。
过几天再将一些具体的代码写出来(目前没有仔细整理)。
yzhshi (2001-11-18 18:03:00)
[center]OleWord时一些用用的代码[/center]
[center][email protected][/center]一、Delphi程序启动Word
采用CreateOleObjects的方法来启动Word,调用VBA代码,具体实现过程为:
首先使用GetActiveOleObject('Word.Application')判断当前内存中是否存在Word程序,如果存在,
则直接连接,如果没有Word程序,则使用CreateOleObject('Word.Application')启动Word二、Delphi程序新建Word文稿
格式:WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)
Template: 使用模板的名称,
NewTemplate: 新建文档的类型,True表示为模板,False表示为文档
DocumentType: 文档类型,默认为空白文档
Visible: 打捞的窗口是否可见举例:Doc_Handle:=Word_Ole.Documents.Add(Template:='C:\Temlate.dot',NewTemplate:=False);三、Delphi程序打开Word文稿
格式:WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument,
PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate,
Format,Encoding,Visible)FileName: 文档名(包含路径)
Confirmconversions: 是否显示文件转换对话框
ReadOnly: 是否以只读方式打开文档
AddToRecentFiles: 是否将文件添加到"文件"菜单底部的最近使用文件列表中
PassWordDocument: 打开此文档时所需要的密码
PasswordTemplate: 打开此模板时所需要的密码
Revert: 如果文档已经,是否重新打开文档
WritePasswordDocument: 保存对文档更改时所需要的密码
WritePasswordTemplate: 保存对模板进行更改时所需要的密码
Format: 打开文档时所需使用的文件转换器
Encoding: 所使用的文档代码页
Visible: 打开文档的窗口是否可见举例:
Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False,
AddToRecentFiles:=False);四、Delphi程序保存Word文稿
<br />格式:WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,
<br /> AddToRecentFiles, WritePassword, ReadOnlyRecommended,
<br /> EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,
<br /> SaveAsAOCELetter)
<br />
<br />FileName: 文件名。默认为当前文件夹和文件名。
<br />FileFormat 文档保存的格式。
<br />LockComments
<br />SaveAsAOCELetter 如果文档包含一个附加,当此属性值为 True 时,将文档存为一篇 AOCE 信笺(同时保存邮件)。
<br />
<br />举例:
<br />Word_Ole.Documents.SaveAs(FileName:=Doc_File,FileFormat=wdFormatDocument,
<br /> AddToRecentFiles=False);
<br />
<br />五、从数据库读取文件到本地硬盘和从本地硬盘读取文件到数据库
<br />
<br />在数据库上使用Image二进制字段保存,使用Stream流的方式。
<br />
<br />创建文件流:
<br /> Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);
<br /> Word_FileStream.Position:=0;
<br />
<br />保存到数据库的Image字段:
<br /> TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);
<br />
<br />从数据库读取文件到本地硬盘:
<br /> TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);
<br />
<br />释放文件流:
<br /> Word_FileStream.Free;
<br />
<br />六、全局消息的定义
<br />因为word和Delphi程序是两个软件,相互之间通讯比较麻烦,所以使用全局消息的方法进行。
<br />全局消息必须首先注册,Windows返回系统空闲的消息号,当注册的消息相同时,
<br />Windows系统返回同一个值,这样就保证了使用这个消息号在两个程序之间通讯。
<br />
<br />定义消息的办法:
<br /> szMessageString: pchar = 'XIDIAN_11_Stone';
<br /> FMyJoinMessage := RegisterWindowMessage(szMessageString);
<br />
<br />发送消息的方法:
<br /> SendMessage(对方句柄,消息,消息附带短变量,消息附带长变量)
<br />
<br />七、Delphi程序接收消息的方法
<br /> Delphi接收消息有两种,一是重载特定消息,二是重载WndProc函数,在里面选择相应消息进行处理。
<br /> 法一,每次只能处理一条消息,而法二能够同时处理多条消息。
<br />
<br /> 对于法二,声明如下:
<br /> procedure WndProc(var Message: TMessage);override
<br /> 必须注意,使用时需要在处理完自己消息处理后继承WndProc(Message)函数,否则系统会崩溃!
<br />
<br />八、Word中Combo对话框的动态生成以及Change事件
<br /> 建立类模块Combohander,在内部定义事件
<br /> Public WithEvents ComboBoxEvent As Office.CommandBarComboBox
<br />
<br /> 定义Combo控件产生事件的模块
<br /> Dim ctlComboBoxHandler As New ComboBoxHandler
<br />
<br /> 产生Combo对话框
<br /> Set Cbo_ChooseDoc = CommandBars("添加的菜单").Controls.Add(Type:=msoControlComboBox, Temporary:=True)
<br />
<br /> 进行文件句柄设置,以产生Combo_Change事件
<br /> Set ctlComboBoxHandler.ComboBoxEvent = Cbo_ChooseDoc
<br />
<br /> 产生事件后,在类模块Combohander内选择ComboBoxEvent的Change事件,即可书写事件代码
<br /> Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)
<br />
<br />九、一些Word的事件
<br /> VBA代码中处理的Word事件有:Document_Close
<br /> Application事件中需要处理的有:DocumentBeforeClose,DocumentChange。
<br />
<br /> Document_Close:事件在文档关闭时产生事件
<br /> DocumentBeforeClose:在文档被关闭以前先于Word判断文档是否保存,给出相应提示并进行相应处理。
<br /> DocumentChange:文档切换,在文档从自己修改的文稿和其他人修改的文稿之间切换产生事件,
<br />主要处理设置文档权限等。实例代码:if WordApp.Visible=false then //运行Word,并新建一文档
WordApp.Visible:=true;
filename:='';
tempboolean:=false;
WordApp.Documents.Add(filename,tempboolean); if wordtype.radiogroup1.ItemIndex=0 then
WordApp.ActiveDocument.PageSetup.Orientation:=wdOrientLandscape;//将纸张调为横向
with WordApp.Selection do//将标题写入Word文档
begin
Paragraphs.Alignment:=1;
Font.Size:=20;
Font.Bold:=1;
TypeText(panel12.Caption);
end;
with WordApp.Selection do//将各参数还原
begin
TypeText(#13);
Paragraphs.Alignment:=0;
Font.Size:=11;
Font.Bold:=0;
end; for i:=0 to rect_num-1 do //将矩形对应的模块(文字、图、表)写入Word文档
begin temptext:=copy(Word_Text[i],1,pos('_',Word_Text[i])-1);
if temptext='文字材料' then
begin
pathname:=extractfilepath(application.ExeName)+'Text\';
temptext:=copy(Word_Text[i],pos('_',Word_Text[i])+1,length(Word_Text[i]));
filename:=pathname+temptext+'.txt';
range:='';
confirm:=false;
link:=false;
attachment:=false;
WordApp.Selection.TypeParagraph;
WordApp.Selection.InsertFile(filename,range,confirm,link,attachment); end;
if temptext='统计分析表' then
begin
pathname:=extractfilepath(application.ExeName)+'Tables\';
temptext:=copy(Word_Text[i],pos('_',Word_Text[i])+1,length(Word_Text[i]));
filename:=pathname+temptext+'.htm';
range:='';
confirm:=false;
link:=false;
attachment:=false; start:=WordApp.Selection.Get_Start;
WordApp.Selection.InsertFile(filename,range,confirm,link,attachment);
endof:= WordApp.Selection.Get_Start;
WordApp.ActiveDocument.Range(start,endof).select;
WordApp.Selection.Font.Name:='宋体';
WordApp.Selection.Font.Size:=9;
WordApp.Selection.Set_Start(endof);
end;
if temptext='统计分析图' then
begin
pathname:=extractfilepath(application.ExeName)+'StatBmp\';
temptext:=copy(Word_Text[i],pos('_',Word_Text[i])+1,length(Word_Text[i]));
filename:=pathname+temptext+'.bmp';
start:=WordApp.Selection.Range;
withfilesave:=true;
wordApp.Selection.TypeText(' ');
WordApp.Selection.Paragraphs.Alignment:=1;
WordApp.Selection.InlineShapes.AddPicture(filename,attachment,withfilesave,start);
end;
end;
WordApp.Disconnect;
end;
我怎样才能响应新的菜单项的click事件 ^^