[转载]在Delphi中使用CreateOleObject方法

http://blog.sina.com.cn/s/blog_56d8b99e0100wedf.html

 (2011-08-24 14:20:47)
转载▼
标签： 

转载

  
原文地址：在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); begin FWord.Selection.TypeParagraph; FWord.Selection.TypeText(Text := form1.Edit1.Text); end;

procedure TForm1.FormCreate(Sender: TObject); begin //首先创建对象，如果出现异常就作出提示 try FWord := CreateOleObject('Word.Application'); //WORD程序的执行是否可见，值为False时程序在后台执行 FWord.Visible := False; except ShowMessage('创建word对象失败！'); Exit; end;

//先在打开的Word中创建一个新的页面，然后在其中键入"Hello,"+回车＋"World！" try FDoc := FWord.Documents.Add; FWord.Selection.TypeText(Text := 'Hello，'); FWord.Selection.TypeParagraph; FWord.Selection.TypeText(Text := 'World! ');

except on e: Exception do ShowMessage(e.Message); end; end;

//在程序关闭时把文件内容保存到当前目录中，并以test.doc命名 //同时关闭WORD程序 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin FDoc.SaveAs(ExtractFilePath(application.ExeName) +'test.doc'); FWord.Quit; FWord := Unassigned; end;

end.

此外，对OFFICE其他文件的操作都比较类似，不在赘述。通过对WORD文件中更复杂的VBA宏的引用，这个方法还可以完成更复杂的文档操作。