还是请教WORD和DELPHI的问题!（有些不好意思！）(100分)

关闭word用如下代码。如果想保存doc文件，请修改savechanges变量的内容：
var
savechanges, originalformat, routedocument: olevariant;
begin
savechanges := wddonotsavechanges;
originalformat := unassigned;
routedocument := unassigned;
try
wordapplication.quit(savechanges, originalformat, routedocument);
wordapplication.disconnect;
except
on e: exception do
begin
showmessage(e.message);
wordapplication.disconnect;
end;
end;
end;
请问如何改变savechanges，比如说我要把文件名存为ttt.doc,怎么办呢！？

保存使用SaveAs可以另存，你是不是说要在关闭的时候保存文件呀。
如果是你程序关闭的Word，那么可以在关闭以前调用，如果是其他方法关闭的Word，就不好办了。
VBA代码可以实现这个功能。

//保存退出WORD
try
wordapplication1.ChangeFileOpenDirectory('C:/My Documents');
Temp1 := 'ttt.doc';
Temp2 := wdFormatDocument;
Temp3 := '';
Temp4 := True;
TempW := False;
WordApplication1.ActiveDocument.SaveAs(Temp1,Temp2,TempW,
Temp3,Temp4,Temp3,TempW,TempW,TempW,TempW,TempW);
wordApplication1.Quit;
WordApplication1.Disconnect;
showmessage('保存成功');

except
on E: Exception do
begin
Showmessage(E.Message);
WordApplication1.Disconnect;
end;
end;

我比较同意楼上的这位的说法

多人接受答案了。