说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

调用WORD出错请高手指点!急!!!

编辑:说三道四文库 发布时间:2018-06-24 07:32
HTML文档下载 WORD文档下载 PDF文档下载
uses ComObj,OleServer;
procedure TForm1.Button2Click(Sender: TObject);
var
WordApp,WordDoc,WordTable:OleVariant;
i,j:integer;
begin
WordApp:=CreateOleObject('Word.Application');//执行时出错:'被呼叫方拒绝接收呼叫'
WordApp.Visible:=True;
WordDoc:=WordApp.Documents.Add;
WordTable:=WordDoc.Tables.Add(WordApp.Selection.Range,ADOQuery1.RecordCount+1,ADOQuery1.FieldCount);
for i:=1 to ADOQuery1.FieldCount do
WordTable.Cell(1,i).Range.InsertAfter(ADOQuery1.Fields[i].DisplayLabel);
i:=2;
ADOQuery1.First;
with ADOQuery1 do
begin
while not eof do
begin
for j:=1 to ADOQuery1.FieldCount do
WordTable.Cell(i,j).Range.InsertAfter(ADOQuery1.Fields[j-1].Value);
Next;
Inc(i);
end;
end;
end;

WORD的版本为2002.9.0.2812
请问是什么原因导致的,如何解决!
我碰到过一次所有ole对象都不能用了重装系统解决



请大家去 http://www.new7wonders.com/c/voting.php 投长城一票
WordApp:=CreateOleObject('Word.Application');//执行时出错:'被呼叫方拒绝接收呼叫'

我这里执行没有问题
to:newyj(老鬼) ,cobi(我是小新) :
在我这里确实无法执行,但执行WordApp:=CreateOleObject('EXCel.Application');却没有问题.请问是不是WORD的问题?我的环境为WIN2000、delphi6、WORD的版本为2000(9.0.2812).
能告诉我你用的WORD的版吗?
我也有個這種情況,你把word重新安裝一下,
用WordApp:=CreateOleObject('Word9.Application');试试
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘