老生常谈——delphi控件WORD的问题(50分)

Word问题我就头痛,后来说不再输出或什么Word了。
呵呵

to linsb:
再想请教几个问题：
1.怎么样打开一个带密码的模板WORD。我是用这种 WordApp.Documents.Add
(Template,NewTemplate,DocumentType,Visible);方式打开的。打开时它会提示输入密码
但我想不用用户输入。
2.怎么用DELPHI向锁定的单元格中写数据。

if opendialog1.Execute then
begin
filename := opendialog1.FileName;
confirmconversions := false;
readonly := false;
addtorecentfiles := false;
passworddocument := '';
passwordtemplate := '';
revert := true;
writepassworddocument := '123';//文档密码
writepasswordtemplate := '';//模板密码
format := wdopenformatdocument;
encoding := '';
visible := true;
wordapplication1.Documents.Open(filename, confirmconversions, readonly,
addtorecentfiles, passworddocument, passwordtemplate, revert,
writepassworddocument, writepasswordtemplate, format, encoding, visible);

end
else
exit
end;

我知道这种找开文件的方式，但是它打开的是一个模板文件，而不是跟据这个模板文件新
建的一个文档，那样对这个文件的操作还是对模板操作，就会修改模板。
第二个问题知道怎么办吗？

WordApplication有OnQuit事件啊。

你的代码
procedure TFbgFrm.CloseWord;
//var
//savechanges, originalformat, routedocument: olevariant;
begin
//savechanges := wddonotsavechanges;
//originalformat := unassigned;
//routedocument := unassigned;
try
//wordapp.quit(savechanges, originalformat, routedocument);
WordDoc.Disconnect;
WordApp.Quit;
wordapp.disconnect;{quit 后已经将TWordApplication销毁，不能再次disconnect
注释此局就可以了}
except
on e: exception do
begin
showmessage(e.message);
wordapp.disconnect;
end;
end;
end;