Tworddocument控件中，如何实现将Tworddocument的内容保存到指定的地方（已提供原代码参考）。请教

[luhualing]

Tworddocument控件中，如何实现将Tworddocument的内容
保存到指定的地方（已提供原代码参考），如：我想关闭
Tworddocument时，自动保存到c:/temp.doc

窗口共有三个控件：worddocument1,wordapplication1,button1;
下面提供打开指定文件原的代码，但我不知道保存到指定文件的代码是怎么写？

（打开一个WORD文件代码）
button1-----------click 代码为
procedure TForm1.Button2Click(Sender: TObject);
var

Filename,PasswordDocument,PasswordTemplate,WritePasswordDocument,
WritePasswordTemplate,Encoding,ConfirmConversions,ReadOnly,
AddToRecentFiles,Revert,Visible,
Format,ItemIndex:olevariant;

begin
wordapplication1.connect;
wordapplication1.visible := true;
wordapplication1.caption := 'delphi automation';

{open document}

FileName := 'C:/temp.doc';
ConfirmConversions:= False;
ReadOnly:=False;
AddToRecentFiles:=False;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=True;
WritePasswordDocument:='';
WritePasswordTemplate:='' ;
Format:=wdOpenFormatDocument;
Visible := true;
Encoding := '';
WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible);
ItemIndex:= 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;
end;

[lxpbuaa]

var
FileName: OleVariant;
begin
FileName := 'c:\FileName.doc';
WordDocument1.SaveAs(FileName);
end;

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[upingking]

WordDocument1.SaveAs(你要存入的路径＋文件名);