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杀毒软件会有一个
“警告:检测到恶意脚本”的提示对话框。
此对话框又如何解决?
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杀毒软件会有一个
“警告:检测到恶意脚本”的提示对话框。
此对话框又如何解决?