Numărul de pagini din MS Word Document

Numărul de pagini din documentul MS Word

Doamne, nu-mi spune cum să aflu numărul de pagini din documentul MS Word. Programul meu imprimă o factură consistentă pe mai multe coli. Și în final, trebuie să fi părut la cât de multe Lit publicat acest proiect de lege. Deci, de unde știi câte pagini sunt document deschis?
Macrocomenzi a reușit doar să-l stoarce:
# XA0; # XA0; Selection.Sections (1) .Footers (1) .PageNumbers.Add PageNumberAlignment: = _
# XA0; # XA0; # XA0; # XA0; wdAlignPageNumberRight, FIRSTPAGE: = true

Dar nikakh futersov nu am găsit în Delphi.

> Selectare / Range.wdNumberOfPagesInDocument

Nu sa întâmplat. Dar, oricum, mulțumesc pentru pont.
Procedura TForm1.Button1Click (Expeditor: TObject);
var
# XA0; vrTemplateName, vrTmpOle: OleVariant;
# XA0; S: String;
începe
# XA0; încercați
# XA0; # XA0; W1.Free;
# XA0; # XA0; W1: = TWordApplication.Create (Form1);
# XA0; # XA0; W1.Connectkind: = ckNewInstance;
# XA0; # XA0; vrTemplateName: = "KCh.doc";
# XA0; # XA0; W1.Documents.Open (vrTemplateName,
# XA0; # XA0; # XA0; EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
# XA0; # XA0; # XA0; EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
# XA0; # XA0; # XA0; EmptyParam);
# XA0; # XA0; vrTmpOle: = wdNumberOfPagesInDocument;
# XA0; # XA0; S: = W1.Selection.Information [vrTmpOle];
# XA0; # XA0; ShowMessage (S);
# XA0; în sfârșit
# XA0; # XA0; vrTmpOle: = false;
# XA0; # XA0; W1.Visible: = true;
# XA0; # XA0; W1.Disconnect;
# XA0; end;
se încheie;

Hmm, într-adevăr, pentru a informații despre numărul paginii returnează -1, chiar și cu cea mai mare parte VBA, și la exemplul dat în ajutor. Ciudat.

Aici am găsit! Nu știu un Delphi, dar în VBA ca aceasta:
MsgBox (ActiveDocument.BuiltInDocumentProperties ( "Numărul de pagini"). Valoare)

Memorie: 0.72 MB
Timpul: 0,036 c