知识大全在Delphi中使用CreateOleObject方法对WORD文件进行操作

Posted 2022-07-22 操作

篇首语：不要以为你的努力可以一劳永逸，权当做你始终一无所有。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在Delphi中使用CreateOleObject方法对WORD文件进行操作相关的知识，希望对你有一定的参考价值。

在Delphi中使用CreateOleObject方法对WORD文件进行操作 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　使用CreateOleObject方法对WORD文档操作具有先天所具备的优势与delphi所提供的那些控件方式的访问相比 CreateOleObject方法距离WORD核心的操作更近因为它直接使用OFFICE所提供的VBA语言对WORD文档的操作进行编程

　　以下是我在本机上所做的实验机器软件配置如下

Windows XP+delphi +OFFICE

　　这个程序很简单在页面上放置了一个edit和一个button 每单击一次按钮就会自动把edit中的内容添加在后台中的word文档中程序关闭时文件自动保存在当前程序的主目录中

unit main;

interface

//如果要使用CreateOleObject的办法对WORD文档进行操作应该在uses//语句中加入Comobj声明和WordXP声明usesWindows Messages SysUtils Variants Classes Graphics Controls Forms Comobj WordXP Dialogs StdCtrls;

typeTForm = class(TForm)Button : TButton;Edit : TEdit;procedure Button Click(Sender: TObject);procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);// procedure Button Click(Sender: TObject);private Private declarations public Public declarations end;

varForm : TForm ;//把这两个变量声明为全局变量FWord: Variant;FDoc: Variant;

implementation

$R * dfm

procedure TForm Button Click(Sender: TObject);beginFWord Selection TypeParagraph;FWord Selection TypeText(Text := form Edit Text);end;

procedure TForm 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 );FWord Selection TypeParagraph;FWord Selection TypeText(Text := World! );

excepton e: Exception doShowMessage(e Message);end;end;

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

end

cha138/Article/program/Delphi/201311/24730

知识大全 在Delphi中使用CreateOleObject方法对WORD文件进行操作

知识大全在Delphi中使用CreateOleObject方法对WORD文件进行操作