delphi打开word文件的问题(200分)

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #1

我想用delphi用word打开一个word文件。当我关闭word应用程序时再次执行程序可是老是出问题
procedure TForm1.Button1Click(Sender: TObject);
var a:OleVariant;
begin
a:='c:/ggj.doc';
if not wordapplication1.visible then
begin
WordApplication1.Connect;
WordApplication1.Visible:=true;
end;
WordDocument1.Connectto(WordApplication1.Documents.Open(a,EmptyParam,emptyparam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam));
end;
procedure TForm1.WordDocument1Close(Sender: TObject);
begin
wordapplication1.Quit;
end;
end.
有没有解决的办法呢？

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #2

procedure TForm1.FormDestroy(Sender: TObject);
begin
if not VarIsEmpty(wordapplication1) then wordapplication1.Quit;
end;

 

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #3

我想关闭打开的word文档的同时也关闭word应用程序，然后我想再次打开word文件。可是
它老是出错

 

远

远帆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #4

我以前也遇到过这个问题，好像是要WordApplication1.disconnect (记不太清了)

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #5

错误信息是什么？

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #6

我操作Word，一般采取OLE，不用Servers上面的控件~~~~~~~~

 

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #7

application error
exception eoleexception in module project1.exe at 0005065f;
epc 服用器无法使用
这就是错误信息了，我不知道怎么办

 

J

Jeny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #8

试试让visible:=false;

 

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #9

还是不行呀，我都快受不了了。
真难死了。有什么别的什么方法可以实现这个功能吗

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #10

奇怪,我在EXCEL中试过同样的操作没有问题,在WORD中却有问题,这会儿试不出来,我有另外一
个办法,你将Document的Close中隐藏wordapplication,这样你打开的时候就不会有问题.而在
表单关闭的时候再wordapplication1.quit;
procedure TForm1.WordDocument1Close(Sender: TObject);
begin
wordapplication1.disconnect;
wordapplication1.visibled:=False;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
wordapplication1.quit;
end;

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #11

呵呵，还是DISCONNECT问题，关闭时没有disconnect，连接会出错。这样就行了

procedure TForm1.WordDocument1Close(Sender: TObject);
begin
WordDocument1.Disconnect;
wordapplication1.Quit;
WordApplication1.Disconnect;
end;

 

悲

悲酥清风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #12

在关闭文档时写两句代码：

代码:

WordApp.Quit;
WordApp.DisConnect;

一句也不能少，次序也不能倒！

 

G

gaoren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #13

谢谢你！

 

千

千中元

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-05

• #14

呵呵，倍速清风好像前两天正好遇到这个问题了