delphi中用ole打开以某模板文件为模板的新文件而不是模板文件本身，该如何写？

[fangf]

var
WordApp,DocApp:OleVariant;



try
WordApp := CreateOleObject('Word.Application');
except
MessageDlg('您的机器里未安装Microsoft Word！', mtError, [mbOk], 0);
Exit;
end;

DocApp:=WordApp.Documents.Open(AppPath+'\report\doc1.dot');
wordapp.visible:=true;


以上代码打开了模板文件本身，如果保存该文件，就会把模板文件覆盖掉:(

[fangf]

没人知道？
还是太简单了？

[saintor]

接楼主的代码，把Documents.open改为Documents.Add即可：
DocApp:=WordApp.Documents.Add(Template:=AppPath+'\report\doc1.dot',Visible:=True);

参见[OfficeInstallPath]\Office\2052\VBAWRD9.CHM (Office 2k中)，注意安装Office时已经安装了WordBasic的帮助！

[fangf]

：（太失望了，还是没人回复。

[fangf]

谢谢 saintor() ,我已解决了。