Delphi + Word = 数据库 + 公文处理

领测软件测试网

关闭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; 

    让Word打开一个指定的文件，需要先放置OpenDialog，然后调用

文章来源于领测软件测试网 https://www.ltesting.net/