如何让word修改后自动保存 找管家婆软件
2楼: w.ActiveDocuments.Save; //保存更改
w.DisplayAlerts := True; //是否提示用户保存更改。
看本论坛“Delphi与Word之间的融合技术”帖子 如管家婆软件
3楼: 在Delphi中使用CreateOleObject方法对WORD文件进行操作
（加入日期:2005-4-6 点击数:5887）
电信机房P4服务器·6999/年·送产权蓝芒系统
【对此文发表评论】 【编程爱好者论坛】 【保存文章至硬盘】 【打印文章】
使用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宏的引用，这个方法还可以完成更复杂的文档操作。
4楼: newsmile谢谢先
那贴子我早看了没找到啊 ,能说的具体些吗 问题解决分都给你
5楼: 在关闭前先保存
6楼: 想你好啊
我用的是appl控件啊 ,close 事件中写doc.save 但是还是提示是否保存的对话框
销售管理软件版7楼: word.ActiveDocuments.Save;
word.DisplayAlerts := True;
8楼: 使用word application组件试试吧
9楼: 在它的beforeclose事件中写doc.save
之后写上wordap.disconection
10楼: 多人接受答案了。
联系我们
