如何取得Word總頁次 |
尚未結案
|
shing.net
中階會員 發表:207 回覆:124 積分:66 註冊:2002-03-16 發送簡訊給我 |
|
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
|
shing.net
中階會員 發表:207 回覆:124 積分:66 註冊:2002-03-16 發送簡訊給我 |
引言: http://delphi.ktop.com.tw/topic.php?topic_id=36158 请问如何用delphi得到doc文件的统计信息(如:页数,行数等等) 星期一,星期二...星期日..星期一..無窮迴圈@@為何其頁數都是1,在Word明明是3頁 其程式碼如下 wordapplication1.connect; wordapplication1.visible := true; template := 'c:\test.doc'; newtemplate := True; wordapplication1.documents.add(template, newtemplate, EmptyParam, EmptyParam); _Type:=wdStory; wordapplication1.Selection.EndKey(_Type, EmptyParam); (WordApplication1.documents).DefaultInterface.uiltInDocumentProperties[wdPropertyPages].Value; _Type:=wdPropertyPages; Doc:= WordApplication1.ActiveDocument; i:=Doc.BuiltInDocumentProperties[_Type].value; edit1.Text:=inttostr(i); 請問是何原因? 謝謝 |
pgdennis
資深會員 發表:41 回覆:526 積分:443 註冊:2002-05-23 發送簡訊給我 |
我是這樣弄,修改你的code
procedure TForm1.Button1Click(Sender: TObject); var Doc:_document; _TYPE,template,newtemplate:olevariant; i:integer; begin wordapplication1.connect; wordapplication1.visible := true; template:= 'c:\IETM_2_5.doc'; newtemplate := True; wordapplication1.documents.add(template, newtemplate, EmptyParam,EmptyParam); _Type:=wdStory; wordapplication1.Selection.EndKey(_Type, EmptyParam); _Type:=wdPropertyPages; Doc:= WordApplication1.ActiveDocument; i:= OleVariant(Doc).BuiltInDocumentProperties[_Type].Value; showmessage(inttostr(i)); end;可以正常顯示的的 星期一,星期二...星期日..星期一..無窮迴圈@@
------
星期一,二...無窮迴圈@@ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |