ole操纵word.docVIP

在Delphi中使用CreateOleObject方法对WORD文件进行操作 使用CreateOleObject方法对WORD文档操作具有先天所具备的优势，与Delphi所提供的那些控件方式的访问相比，CreateOleObject方法距离WORD核心的操作“更近”，因为它直接使用Office所提供的VBA语言对WORD文档的操作进行编程。 以下是我在本机上所做的实验，机器软件配置如下： Windows XP+delphi7.0+OFFICE 2003 这个程序很简单，在页面上放置了一个edit和一个button,每单击一次按钮，就会自动把edit中的内容添加在后台中的word文档中，程序关闭时文件自动保存在当前程序的主目录中。 unit main; interface //如果要使用CreateOleObject的办法对WORD文档进行操作，应该在uses//语句中加入Comobj声明和WordXP声明uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Comobj, WordXP, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction);// procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; //把这两个变量声明为全局变量 FWord: Variant; FDoc: Variant; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);beginFWord.Selection.TypeParagraph;FWord.Selection.TypeText(Text := form1.Edit1.Text);end; procedure TForm1.FormCreate(Sender: TObject);begin//首先创建对象，如果出现异常就作出提示tryFWord := CreateOleObject(Word.Application);//WORD程序的执行是否可见，值为False时程序在后台执行FWord.Visible := False;exceptShowMessage(创建word对象失败！);Exit;end; //先在打开的Word中创建一个新的页面，然后在其中键入Hello,+回车＋World！tryFDoc := FWord.Documents.Add;FWord.Selection.TypeText(Text := Hello， + #13);FWord.Selection.TypeParagraph; //换行FWord.Selection.TypeText(Text := World! ); excepton e: Exception doShowMessage(e.Message);end;end; //在程序关闭时把文件内容保存到当前目录中，并以test.doc命名//同时关闭WORD程序procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginFDoc.SaveAs(ExtractFilePath(application.ExeName) +test.doc);FWord.Quit;FWord := Unassigned;end; end. 此外，对OFFICE其他文件的操作都比较类似，不在赘述。通过对WORD文件中更复杂的VBA宏的引用，这个方法还可以完成更复杂的文档操作。 最近帮同学用Delphi 7写的一个数据库应用中的一个功能是将查询的结果导出到一个Wo