我的程序是这样的:
................
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Word2000;
.................
var
Form1: TForm1;
WordApplication1: TWordApplication;
.................
procedure TForm1.FormCreate(Sender: TObject);
begin
try
wordapplication1.connect;//这里报错,如果改为wordapplication.connect;则报错Object or class required;
except
messagedlg('word may not be installed', mterror, [mbok], 0);
abort;
end;
end;
................
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Word2000;
.................
var
Form1: TForm1;
WordApplication1: TWordApplication;
.................
procedure TForm1.FormCreate(Sender: TObject);
begin
try
wordapplication1.connect;//这里报错,如果改为wordapplication.connect;则报错Object or class required;
except
messagedlg('word may not be installed', mterror, [mbok], 0);
abort;
end;
end;
解决方案 »
- DBGridEh.columns[i].Title.SortMarker:=smDownEh,会在第i列上有个向下的三角形,这是DBGrigEH中哪段代码实现的?
- adoconnection问题
- 大家探讨一下吧,把所有的源程式都收集起来,大家互相学习!!
- FileListBox1的一个小麻烦??
- 光驱读不出盘,怎么回事??
- 函数和宏的3点区别是什么?(无)
- 如何显示Access数据库中的OLE字段(bmp或jpg文件)?
- 请问mainmenu控件中的菜单项右边的那个热键(不是快捷键)是如何修改的?
- 打开文件夹可以用什么样的钩子捕获
- 想动态分割窗口,想分成M行*N列个区,不知怎样实现?
- 窗口消息的问题。
- delphi能异步执行存储过程吗?
Project Project1.exe raused exception class EAccessViolation with message 'Access violation at address 0045A4E1 in module 'Project1.ext'.Read of address 00000000'.Process stopped Use Step or Run to continue.
FWordApp, Range: Variant;
i: integer;
begin
try
FWordApp:=CreateOleObject('Word.Application');
FWordApp.Visible:=True;
FWordApp.Documents.Open('D:\Test.doc');
...