获得Word文件的页数的问题,用的是CB。(200分)

  • 主题发起人 主题发起人 rainsea
  • 开始时间 开始时间
R

rainsea

Unregistered / Unconfirmed
GUEST, unregistred user!
TWordDocument WD;
WD = new TWordDocument(NULL);
......
和WordApplication相连,然后
WD->Range((OleVariant)0, (OleVariant)100)->get_Information(wdNumberOfPagesInDocument);
为什么告诉我Range的参数有问题,可是它确实只有两个啊,CB说有三个。
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=458661
 
CB和Delphi有一点区别
delphi可以直接写,比方:WD.range->get_Information不一定对
但CB的Range是Range(tagVARIANT *Start, tagVARIANT *End)
这两个值给什么?是什么意思?
我给了两个值,但运行的时候告诉我
this->Range(Start, End, (Word_2k::Range**)&prop)
然后就error了。
 
Delphi,自己改一下就行了。
procedure TForm1.Button1Click(Sender: TObject);
var
App,Doc,Sht:olevariant;
begin
try
App:=CreateOleObject('Word.application');
do
c:=App.documents.open(FileName:='c:/Mydo
cuments/综合技巧_2.doc');
showmessage(inttostr(Doc.BuiltInDocumentProperties[13]));
except
App.quit;
end;
end;
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
911
SUNSTONE的Delphi笔记
S
后退
顶部