如何取得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;可以正常顯示的的
------
星期一,二...無窮迴圈＠＠ |
發表時間：2004-09-14 18:17:09
IP:61.218.xxx.xxx 未訂閱
系統時間：2024-06-29 18:35:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |