怎么看word文档一共有几页

Question

应该怎么看？

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,word2000, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
        m_WordApp: TWordApplication;
    m_WordDoc: TWordDocument;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  m_WordApp := TWordApplication.Create(nil);
  m_WordDoc := TWordDocument.Create(nil);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  m_WordDoc.Disconnect;
  m_WordApp.Disconnect;
  m_WordDoc.Free;
  m_WordApp.Free;
end;procedure TForm1.FormShow(Sender: TObject);
var
  Template, NewTemp, DocType, Visible: OleVariant;
begin
   Template :=ExtractFilePath(Application.ExeName)+ '1.Dot';
  NewTemp := false;
  DocType := wdNewBlankDocument;
  Visible := true;
  m_WordApp.Connect;
  m_WordDoc.ConnectTo(m_WordApp.Documents.Add(Template, NewTemp, DocType, Visible));
end;
//得到总页数
procedure TForm1.Button1Click(Sender: TObject);
var
  szPg:Variant;
  i:string;
begin
  m_WordDoc.Repaginate ;
  szPg:=m_WordDoc.BuiltInDocumentProperties;
  i:=szpg.Item[wdPropertyPages].Value;
  showmessage(i);
end;end.