大家帮忙分析分析，NND，今天见鬼了，有关OLE WORD(100分)

K

kmask

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #1

我用ole方式调用WORD，在某个表格内追加指定的行数
...
wapplevariant;
...
begin
wapp:=createoleobject('word.application');

...


就下面这个过程，完成追加行的任务。

见鬼了，我调用word的过程中如果wapp.visible:=false下面这个过程就会出错
如果wapp.visible:=true;就一切OK.怎么回事？？？ 帮忙分析分析

procedure tfrmsalelist.appendrows(tblindex:integer;rows:integer);
var
curtbllevariant;
begin
curtbl:=wdoc.tables.item(tblindex);
curtbl.select;
wapp.selection.insertrowsbelow(rows);
end;

 

K

kmask

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #2

我踢

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #3

当然要
wapp.visible=true;
否则你也没法对WORD操作，你也无法得到word的ActiveDocument对象

 

K

kmask

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #4

不会吧，我屏蔽掉以上的那个过程，其他针对DOCUMENT的操作都正常啊，包括建表格，替换，
书写……

 

J

janestory

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #5

屏蔽掉以上的那个过程之后，你可以得到Word，但是所进行的操作都是在后台进行。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #6

http://www.delphibbs.com/delphibbs/dispq.asp?lid=558671
看看有用没有。

 

K

kmask

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #7

还有其他见解么？

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #8

没问题呀。一下是实验全部源程序。
uses comobj;
var
Word_Handle, Doc_Handle: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
var
Tmp_Int: Integer;
begin

try
Word_Handle := GetActiveOleObject('Word.Application');
except
try
Word_Handle := CreateOleObject('Word.Application');
except
end;
end;
// Word_Handle.Visible := True;
Doc_Handle := word_Handle.Documents.open(FileName := 'C:/1.doc', ReadOnly := False, AddToRecentFiles := False);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
curtbl: olevariant;
begin
curtbl := Doc_Handle.tables.item(1);
curtbl.select;
Word_Handle.selection.insertrowsbelow(1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Word_Handle.Visible := True;
end;

 

Z

zyg_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #9

我曾经试过让word的visible=false,然后进行打印操作，但是发生了错误

 

K

kmask

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #10

对此问题，我还有一点补充。
是在一个for循环里面调用appendarow过程。
第一次执行时正确，以后就不行了。

而且，当wapp.visible:=true时，全部正常，即使循环100次。
我想知道错在哪里。为什么。

请各位继续讨论。

 

K

kmask

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-04

• #11

我踢

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #12

报告什么错

 

W

wk_knife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-05

• #13

你可以不追加行，用拆分行来做。把一行拆成n行

我觉得错误可能是因为在不可见的状态下Selection无法定位，
我记得好象ActiveWindow中才有Selection的。

 

K

kmask

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-25

• #14

对啦，就是WORD不可见，定位无效的问题

有劳各位