如何得到word的保存路径和文件名(50分)

var ItemIndex,Template,NewTemplate,Documentype,Visible: OleVariant;
begin
try //启动word
Wordapplication1.Connect;
except
MessageDlg('Word may not be installed', mtError, [mbOk], 0);
Abort;
end;
Wordapplication1.Visible := True;


//New document
Template:=Emptyparam;
NewTemplate :=False; //是否建立模板
Documentype:=Emptyparam;
Visible:=true;

wordapplication1.Documents.Add(Template,Newtemplate,Documentype,Visible);
mainf.Visible:=false;
xjnwf.Visible:=false;
end;
我用以上的过程新建一个档，请问各位高手，我用此过程建立文档后，用word保存了编辑
的文档，请问在delphi程序里如何能得到word文档的保存路径和保存的文件名。
thanks

你如果用的是控件，它应该提供保存文件的方法。