用wordapplication如何获得一个文档的页数？

Question

如题

Answer 1

TPageFoodAlign = (alLeft,alCenter,alRight,alJustify);
procedure TExprmResultDlg.AddRepPageFooder(const nFistPageNum:integer;Const PageFoodAlign:TPageFoodAlign);//添加页脚  页码设置
var
    mmm,nPageNum,aaa,alTextAlign:OleVariant;
begin
    Case PageFoodAlign of
        alLeft:alTextAlign:=wdAlignParagraphLeft;
        alCenter:alTextAlign:=wdAlignParagraphCenter;
        alRight:alTextAlign:=wdAlignParagraphRight;
        alJustify:alTextAlign:=wdAlignParagraphJustify;
    end;    mmm:=wdLine;
    nPageNum:=nFistPageNum;
    aaa:=wdFieldPage;
    WordApplication1.ActiveWindow.ActivePane.View.SeekView :=wdSeekCurrentPageFooter;
    WordApplication1.Selection.Move(mmm,nPageNum);
    WordApplication1.Selection.ParagraphFormat.Alignment := alTextAlign;    WordApplication1.Selection.InsertAfter('第');
    mmm:=wdCharacter;
    WordApplication1.Selection.Move(mmm,nPageNum);
    WordApplication1.Selection.Fields.Add(WordApplication1.Selection.Range,aaa,mmm,nPageNum);    aaa:=wdFieldNumPages;
    WordApplication1.Selection.InsertAfter('页/共');
    WordApplication1.Selection.Move(mmm,nPageNum);
    WordApplication1.Selection.Fields.Add(WordApplication1.Selection.Range,aaa,mmm,nPageNum);    WordApplication1.Selection.InsertAfter('页');
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;
end;

Answer 2

application.ActiveWindow.ActivePane.pages.count或者application.activewindow.pane(1).pages.count