Word中，selection(或Range)有一个属性是information，在delphi中如何调用？ (100分)

L

leohubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #1

我需要知道指定书签所在表格的行、列。
我使用ole自动化，想使用expression.Information(wdEndOfRangeColumnNumber)
和expression.Information(wdEndOfRangeRowNumber),我在程序中是这样写的：
var wddoc:variant;
。。。。。
rownum:=wddoc.bookmarks.item(i).range.information(wdEndOfRangeRowNumber);
colnum:=wddoc.bookmarks.item(i).range.information(wdEndOfRangeColumnNumber);
运行是告诉我information不是一个方法，想必是我在delphi中写法不对，不知应该怎样写才能
调用？
另外，在vba中，许多方法，比如moveup等，使用时需expression.moveup unit:=wdLine,count:=1
在delphi中我直接用moveup(wdLine，1)，往往告诉参数无效，在delphi中如何操作？

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #2

关注~

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #3

能不能把要完成什么功能说一下？

 

L

leohubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-06

• #4

我要取得一个书签所在cell的行和列号。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #5

实验一下，也许有用。
uses word2000;

procedure TForm1.Button1Click(Sender: TObject);
var
wddoc, ItemVariant: OleVariant;
i, rownum, colnum: Integer;
begin
ItemVariant := wddoc.bookmarks.item(i);{这里也许是，实验一下就知道了}
rownum := ItemVariant.range.information(wdEndOfRangeRowNumber);
colnum := ItemVariant.range.information(wdEndOfRangeColumnNumber);
end;

 

L

leohubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #6

To yzhshi兄:
还是不行啊，还是报“information不是一个方法”地错误。

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #7

Get_Information是函数（方法）
information是属性

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #8

试试：
rownum:=wddoc.bookmarks.item(i).range.information[wdEndOfRangeRowNumber];
colnum:=wddoc.bookmarks.item(i).range.information[wdEndOfRangeColumnNumber];

 

L

leohubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #9

to:linsb兄；
get_information不行。
不过rownum:=wddoc.bookmarks.item(i).range.information[wdEndOfRangeRowNumber];
colnum:=wddoc.bookmarks.item(i).range.information[wdEndOfRangeColumnNumber];
是对的。我问题出在information用的() 。
再问您一下，在vba中，许多方法，比如moveup等，使用时需expression.moveup unit:=wdLine,count:=1
在delphi中我直接用moveup(wdLine，1)，往往告诉参数无效，在delphi中如何操作？

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #10

看例：
// go to first page
procedure TForm1.GotoFirstPage(WrdApp: TWordApplication);
var
WdUnit,WdCount,wdExtend : OleVariant;
begin
WdUnit := wdScreen;
wdCount := 10;
wdExtend := EmptyParam;
while true do
if WrdApp.Selection.MoveUp(WdUnit,wdCount,wdExtend) = 0 then break;
end;

 

L

leohubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #11

成功拉，多谢多谢

 

L

leohubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #12

接受答案了.