Anzahl der Seiten aus Word File ermitteln

[HendrikM]

mein vorgehen:

Delphi-Quellcode:

uses Word97;
var W_DOC:Word97.WordDocument;
    ConfirmConversions: OleVariant;
    ReadOnly: OleVariant;
    AddToRecentFiles: OleVariant;
    PasswordDocument: OleVariant;
    PasswordTemplate: OleVariant;
    Revert: OleVariant;
    WritePasswordDocument: OleVariant;
    WritePasswordTemplate: OleVariant;
    Format: OleVariant;
    Seiten:integer;
begin
     W_APP:=GetActiveObject(CLASS_WordApplication, nil, Unknown);
     ConfirmConversions:=False;
     ReadOnly:=False;
     AddToRecentFiles:=False;
     PasswordDocument:='';
     PasswordTemplate:='';
     Revert:=False;
     WritePasswordDocument:='';
     WritePasswordTemplate:='';
     Format:=wdOpenFormatAuto;
     W_DOC:=W_APP.Documents.Open(FileName,ConfirmConversions,ReadOnly,
                                  AddToRecentFiles,PasswordDocument,PasswordTemplate,
                                  Revert,WritePasswordDocument,WritePasswordTemplate,
                                  Format);
     Seiten:=W_DOC.ComputeStatistics(wdStatisticPages,IncludeFootnotesAndEndnotes);
end;

Du musst also in jedem Fall das Worddokument öffnen.
Wie es anders geht (siehe Eigenschaften | Dateiinfo des Explorers) weiß ich auch nicht
Hendrik