Брой на страници в документа думата мс

Брой на страници в документ на MS Word

Господи, не ми казвай как да разберете броя на страниците в документ на MS Word. Моята програма отпечатва един як фактура на няколко листа. И в крайна сметка ние трябва да изглежда по колко литас публикувани този законопроект. Така че, как да знам колко страници са отворени документ?
Макрос само успя да го изтръгне:
# XA0; # XA0; Selection.Sections (1) .Footers (1) .PageNumbers.Add PageNumberAlignment: = _
# XA0; # XA0; # XA0; # XA0; wdAlignPageNumberRight, Firstpage: = True

Но nikakh futersov аз не намерих в Делфи.

> Избор / Range.wdNumberOfPagesInDocument

Това не се случи. Но така или иначе, благодаря за върха.
процедура TForm1.Button1Click (Sender: TObject);
Var
# XA0; vrTemplateName, vrTmpOle: OleVariant;
# XA0; S: String;
започвам
# XA0; опитате
# 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; накрая
# XA0; # XA0; vrTmpOle: = фалшива;
# XA0; # XA0; W1.Visible: = вярно;
# XA0; # XA0; W1.Disconnect;
# XA0; край;
приключи;

Хм, наистина, за информация за номера на страницата връща -1, с още по-голяма част от VBA, и с примера, даден в помощта. Странно.

Тук съм открит! Аз не знам на Delphi, но в VBA по този начин:
MsgBox (ActiveDocument.BuiltInDocumentProperties ( "брой страници"). Стойност)

Памет: 0.72 MB
Време: 0,036 гр