IE下启动Word的问题(5分)

  • 主题发起人 主题发起人 ucan1
  • 开始时间 开始时间
U

ucan1

Unregistered / Unconfirmed
GUEST, unregistred user!
=============================================================
procedure TmyCtrl.Button1Click(Sender: TObject);
var
Word_Handle, Doc_Handle: OleVariant;
Word_Button: OleVariant;
Word_menubar: OleVariant;
begin


try
Word_Handle := GetActiveOleObject('Word.Application');
except
try
Word_Handle := CreateOleObject('Word.Application');
except
messagedlg('请检查是否正确安装了WORD2000?',mterror,[mbok],0);
Exit;
end;
end;
Word_Handle.Visible := True;

Doc_Handle := Word_Handle.Documents.open(FileName := 'C:/Demo.doc');
=============================================================

问题:

1.大部分报错“被呼叫方拒绝呼叫”。
或者就说我的WORD2000没有正确安装。
只有少部分情况下可以正常打开word.

后来我发现必须有winword.exe进程,才能打开word.

为什么会出现这些问题呢?又如何解决?

2.还有如果我在delphi里面写了VBA宏代码,启动word时Norton杀毒软件会有一个
“警告:检测到恶意脚本”的提示对话框。
此对话框又如何解决?
 
啊?不会吧?
一个晚上了,还没有人回答呀
 
注意:上面的代码我是作为控件在IE下运行的
 
各位大虾,版主快出手呀
 
难道没有人遇到我这个问题么?
 
帮你顶,我不懂,只不过是不是要进行ole的初始化?
 
晕呀,这么久都没有人回答出来呀
 
try
Word_Handle := GetActiveOleObject('Word.Application');
except
try
Word_Handle := CreateOleObject('Word.Application');
except
try
Word_Handle := CreateOleObject('Word.Application');
except
try
Word_Handle := CreateOleObject('Word.Application');
except
messagedlg('请检查是否正确安装了WORD2000?',mterror,[mbok],0);
Exit;
end;
end;
end;
end;
 
ucan1:你提的这个问题是个很老的问题了,估计老前辈和高手都解答了太多类似的问题,
有些厌倦了,前些时候我一直在研究OLE下控制WORD的问题,有一些心得,大家一起探讨,学习。
 
TO:tysun
我搜索过以前的贴子,也看到了那篇最著名的,但是看了后就是解决不了我的问题呀

你研究OLE下控制WORD的问题,如何控制的呀?我们大家来交流一下想法。

My Mail: mghz@163.com
 
TO:tysun
经过测试,还是不行呀
 
ucan1,你先试试在Word_Handle.Visible := True;这一句之前,加上一个
Showmessage('暂停一下...');
看情况是不是有所改善?如果是就有办法解决,如果不是则是别的原因.
 
还是不行呀
 
写信找微软
 
[:D]
这位老大真幽默
 
后退
顶部