哪位有或知道哪有操作word文档的技术资料？

Question

在网上就找到一篇，不详细

Answer 1

).打开word文件。
    procedure TfjfsglForm.SpeedButton4Click(Sender: TObject);
    var
    MSWord: Variant;
    str:string; 
    begin
      if trim(DataModule1.adoquery27.fieldbyname('fjmc').asstring)<>'' then
      begin
        str:=trim(DataModule1.ADOQuery27.fieldbyname('fjmc').AsString);
        MSWord:= CreateOLEObject('Word.Application');//
        MSWord.Documents.Open('d:\Program Files\Common Files\Sfa\'+str, True);//
        MSWord.Visible:=1;//
        str:='';
        MSWord.ActiveDocument.Range(0, 0);//
        MSWord.ActiveDocument.Range.InsertAfter(str);//?úWord?D???ó×?·?'Title'
        MSWord.ActiveDocument.Range.InsertParagraphAfter;
      end
      else
      showmessage('');
    end;

Answer 2

word文件传入和传出数据库。
    uses IdGlobal;
    procedure TdjhyForm.SpeedButton2Click(Sender: TObject);
    var
    sfilename:string;
    function BlobContentTostring(const Filename:string):string;
    begin
      with Tfilestream.Create(filename,fmopenread)  do
      try
        setlength(result,size);
        read(pointer(result)^,size);
      finally
        free;
      end;
    end;
    begin
      if opendialog1.Execute then
      begin
        sfilename:=opendialog1.FileName;
        DataModule1.ADOQuery14.Edit;
        DataModule1.ADOQuery14.FieldByName('word').AsString:=blobcontenttostring(sfilename);
        DataModule1.ADOQuery14.Post;
      end;
    end;
    procedure TdjhyForm.SpeedButton1Click(Sender: TObject);
    var
    sfilename:string;
    bs:Tadoblobstream;
    begin
      bs:=Tadoblobstream.Create(TBLOBfield(DataModule1.ADOQuery14.FieldByName('word')),bmread);
      try
        sfilename:=extractfilepath(application.ExeName)+trim(DataModule1.adoquery14.fieldbyname('hybh').AsString);
        sfilename:=sfilename+'.'+'doc';
        bs.SaveToFile(sfilename);
        try
          djhyopenform:=Tdjhyopenform.Create(self);
          djhyopenform.olecontainer1.CreateObjectFromFile(sfilename,false);
          djhyopenform.OleContainer1.Iconic:=true;
          djhyopenform.ShowModal;
        finally
          djhyopenform.Free;
        end;
      finally
        bs.free;
      end;
    end;

Answer 3

uses ComObj ;procedure TForm1.Button1Click(Sender: TObject);varvWord,vDoc,vRange : Variant ;sText,sReplace : string ;lReturn : Boolean ;beginsText := 'ABCDEFG' ; //原文字串sReplace := 'GFEDCBA' ; //新字串vWord := CreateOleObject('Word.Application') ;//创建Word线程try//打开要操作的文件vDoc := vWord.Documents.Open('C:Documents.Doc');vDoc.Select ; //选取中整个文档vRange := vDoc.Range ; //替换范围lReturn := True ;while lReturn dobegin //找到并替代成功则返回 True 共11个参数lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;end ;finallyvDoc.Close(True) ; //关闭文并保存vWord.Quit(False) ; //退出Wordend ;end;

Answer 4

Delphi和Word之间的编程    
    
来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517一、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为例，进行详细描述：１、 在Delphi中调用Word软件／文件的方法在Word中调用Word软件，归纳起来有三种方法：。通过Delphi的控件TOleContainer 将Word嵌入a.使用Delphi提供的Servers控件调用Word，使用Word的属性b.通过真正的Com技术，将Office软件目录中文件MSWORD9.OLB中的类库全部导入Delphi中，利用Com技术编程c.使用CreateOleObject将启动Word，然后以Ole方式对Word进行控制。２、 对几种方法的难易程度的判别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宏，可分成四种：１、 和命令名相同的宏如FileSave，FileOpen，如果在VBA代码中包含与Word同名的函数，则直接执行这些VBA代码，忽略Word本身的命令。２、 Word内特定的宏这些宏包含AutoExec（启动 Word 或加载全局模板）、AutoNew（每次新建文档时）、AutoOpen（每次打开已有文档时）、AutoClose（每次关闭文档时），AutoExit（退出 Word 或卸载全局模板时）。如果VBA代码中含有这些名称的函数，则满足相应的条件，相应代码就自动执行。３、 相应事件的VBA宏这些宏是由事件触发的宏，如Document_Close在文档关闭的时候触发事件，Document_New在新建文档的时候触发，Document_Open在打开文档的时候触发。４、 独立的宏自己编写的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 书签

Answer 5

一、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:.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文稿格式：WordDocuments.SaveAs(FileName, FileFormat, LockComments, Password,AddToRecentFiles, WritePassword, ReadOnlyRecommended,EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData,SaveAsAOCELetter)FileName： 文件名。默认为当前文件夹和文件名。FileFormat 文档保存的格式。LockComments 如果为 True，则此文档只允许进行批注。Password 打开文档时的口令。AddToRecentFiles 如果为True，则将文档添至"文件"菜单中最近使用的文档列表中。WritePassword 保存对文档的修改所需的口令。ReadOnlyRecommended 如果为 True，在每次打开文档时，Word 将建议用户采用只读方式。EmbedTrueTypeFonts 如果为 True，则将文档与 TrueType 字体一起保存。SaveNativePictureFormat 如果为 True，则从其他系统平台（例如 Macintosh）导入的图形仅保存其 Windows 版本。SaveFormsData 如果为 True，则将窗体中用户输入的数据存为一条数据记录。SaveAsAOCELetter 如果文档包含一个附加，当此属性值为 True 时，将文档存为一篇 AOCE 信笺（同时保存邮件）。举例：Word_Ole.Documents.SaveAs(FileName:=Doc_File,FileFormat=wdFormatDocument,AddToRecentFiles=False);五、从数据库读取文件到本地硬盘和从本地硬盘读取文件到数据库在数据库上使用Image二进制字段保存，使用Stream流的方式。创建文件流：Word_FileStream:=TFileStream.Create(Target_Name,fmOpenWrite or fmCreate);Word_FileStream.Position:=0;保存到数据库的Image字段：TBlobField(AdoQuery1.FieldByName(Column_Name)).SaveToStream(Word_FileStream);从数据库读取文件到本地硬盘：TBlobField(ADOQuery1.FieldByName(Column_Name)).loadfromStream(Word_FileStream);释放文件流：Word_FileStream.Free;六、全局消息的定义因为word和Delphi程序是两个软件，相互之间通讯比较麻烦，所以使用全局消息的方法进行。全局消息必须首先注册，Windows返回系统空闲的消息号，当注册的消息相同时，Windows系统返回同一个值，这样就保证了使用这个消息号在两个程序之间通讯。定义消息的办法：szMessageString: pchar = 'XIDIAN_11_Stone';FMyJoinMessage := RegisterWindowMessage(szMessageString);发送消息的方法：SendMessage(对方句柄，消息，消息附带短变量，消息附带长变量)七、Delphi程序接收消息的方法Delphi接收消息有两种，一是重载特定消息，二是重载WndProc函数，在里面选择相应消息进行处理。法一，每次只能处理一条消息，而法二能够同时处理多条消息。对于法二，声明如下：procedure WndProc(var Message: TMessage);override必须注意，使用时需要在处理完自己消息处理后继承WndProc(Message)函数，否则系统会崩溃！八、Word中Combo对话框的动态生成以及Change事件建立类模块Combohander，在内部定义事件Public WithEvents ComboBoxEvent As Office.CommandBarComboBox定义Combo控件产生事件的模块Dim ctlComboBoxHandler As New ComboBoxHandler产生Combo对话框Set Cbo_ChooseDoc = CommandBars("添加的菜单").Controls.Add(Type:=msoControlComboBox, Temporary:=True)进行文件句柄设置，以产生Combo_Change事件Set ctlComboBoxHandler.ComboBoxEvent = Cbo_ChooseDoc产生事件后，在类模块Combohander内选择ComboBoxEvent的Change事件，即可书写事件代码Sub ComboBoxEvent_Change(ByVal Ctrl As Office.CommandBarComboBox)九、一些Word的事件VBA代码中处理的Word事件有：Document_CloseApplication事件中需要处理的有：DocumentBeforeClose，DocumentChange。Document_Close：事件在文档关闭时产生事件DocumentBeforeClose：在文档被关闭以前先于Word判断文档是否保存，给出相应提示并进行相应处理。DocumentChange：文档切换，在文档从自己修改的文稿和其他人修改的文稿之间切换产生事件，主要处理设置文档权限等。来自：DragonPC_???, 时间：2001-12-1 21:44:00, ID：758037写的不错，但是我想说一些不同的话，CreateOLEObject创建的variant类型变量，运行期才通过IDispatch接口进行方法调用，所以没有Code Insight，开发效率、运行效率都要差一点。（IDispatch接口是为适合Automation技术开发的，比COM更高级，更抽象）http://www.delphibbs.com/delphibbs/dispq.asp?lid=680785http://www.delphibbs.com/delphibbs/dispq.asp?lid=420919Delphi Servers 组件和Import Library是一回事来着，使用Import Library会更加通用一点，除了Word，其它的支持Automation的应用程序都可以使用，比如Autocad、IE等等。但是Import Library有很多的bug，经常出错。这一点玩过COM编程的人都知道，但我还是推荐使用这套技术进行COM或者Automation工作，效率高的多。hubdog是这方面的专家，你们可以等他来介绍介绍。最后我推荐Binh Ly的站点，他是Borland的COM专家，如果经常逛Borland的Automation新闻组，你肯定认识他，站点有很多介绍和工具下载，大家可以自己看看。Delphi 4编程技术内幕的作者Chris Clvert也是个中好手，他的站点资料多多。http://www.techvanguards.com/http://www.delphibbs.com/delphibbs/dispq.asp?lid=738352***********1、可以使用VBA屏蔽掉相应功能的Office事件，如下，屏蔽了FileSave（保存）选项Sub FileSave()'里面什么都不需要加，如果你需要他执行保存的时候还执行别的，那么添加，同时加上下面这句话' Word.ActiveDocument.SaveEnd Sub2、使用Delete方法，可以删除此属性，Visible还可以再次显示，而Delete就……3、对于实现特定功能，没有必要这么做，你可以将所有VBA代码生成一个dot模板，其他文档建立/打开的时候以他为基本模板就可以了。
 
   
---以上资料来自《超级猛料》