如何实现word的多次调用？(50分)

在程序中调用了word，当用户在程序外关闭word时，再想调用word，就会提示“RPC服务器不可用”，
我该怎么控制呢？

var
wordobj:TWordobj;
begin
wordobj:=Twordobj.Create();
wordobj.open(filename);
end;

你应该在word关闭时接受它传给你的系统的消息通知，再把Word对象关闭掉，如wordvariant.quit释放掉，就可以了

如下的不光是WORD，什么都可以打開
procedure openForShare(const fileNamee:string);
var
filehandle:integer;
begin
filehandle:=fileopen(filename,fropenwrite or fmShareDenynone);
if filehandle>0 then
{valid file halde}
else
{open erro:filehandle=neggative doos error code}
end;