Anzahl der Seiten aus Word File ermitteln

[Christian18]

Hallo,

ich habe nochmal eine Frage. Wie kann ich aus einem Word File die Anzahl der Seiten ermitteln??? Die Word Datei soll mit einem OpenDialog ausgewählt werden. Das habe ich auch schon fertig.

MFG Christian18

[Christian18]

Habt ihr auch keine Idee? Ich auch nicht. Schade Naja vieleicht geht das auch garnicht was ich vor habe.

[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