急死我了!!!好奇怪呀!!!调用word,出错“呼叫请求被对方拒绝”,这个问题绝对怪!!(100分)

  • 主题发起人 主题发起人 wanfangme
  • 开始时间 开始时间
W

wanfangme

Unregistered / Unconfirmed
GUEST, unregistred user!
这段程序在几天前运行还工作正常,从昨天开始,就不能执行了。
无法调用word了,报错误“呼叫请求被对方拒绝”,奇怪呀
a:=Twordapplication.Create(self);
b:=Tworddocument.Create(a);
memo1.SelStart:=0;
memo1.SelLength:=length(memo1.text);
memo1.CopyToClipboard;
b.Content.Paste;
b.Activate;
 
重装word试试。
 
前几天有人也提过这个问题,好像是杀毒软件的office插件的问题
试试把杀毒软件关了后在操作。
 
这两种方法我都试过了!
奇怪的很,有的机器可以,有的部可以,怎么回事?
 
用法不对,试试这个:
var a:TWordapplication;
NewTemplate,oUnit:OleVariant;
begin
a:=Twordapplication.Create(self);
memo1.SelStart:=0;
memo1.SelLength:=length(memo1.text);
memo1.CopyToClipboard;
try
a.Connect;
except
MessageDlg('连接失败,重试一次', mtError, [mbOk], 0);
end;
NewTemplate:=False;
a.Caption := 'MyDocz';
oUnit:=0;
a.Documents.Add(EmptyParam, NewTemplate,oUnit,oUnit);
{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
A.Options.CheckSpellingAsYouType := False;
A.Options.CheckGrammarAsYouType := False;
a.Visible := True;
a.ActiveDocument.Content.Paste;
a.Activate;


end;
 
我也有同样的问题 ,在程序中嵌入word,开始时一切正常,但当我加上如下的一句话后,就会出现类似被拒绝呼叫的提示
CommandBars['Menu Bar'].Visible := False;
有哪位知道的话请尽快回答
 
to wanfangme:
你改用olecontainer试试。
CreateObjectFromFile(filepath, False);
 
多人接受答案了。
 
后退
顶部