Kopfzeile eines Word-Dokuments auslesen

[s.h.a.r.k]

Ich hab hier noch ein bisschen Quelltext, wie ich mein Word-Dokument öffne - die Unit ComObj muss man dabei in die uses-Klausel aufnehmen!

Delphi-Quellcode:

function LoadDataFromWordFile(const AFile: String; var Data: TStrings): Integer;
var
  Word : Variant;
  i : Integer;
begin
  Data.Clear;
  Result := GetTickCount;
  try
    Word := CreateOleObject('Word.Application');  // Verbindung zu Word aufbauen
    Word.Documents.Add(Template:=AFile);          // Öffnen der Datei
  except
    Result := -1; // Fehler beim Öffnen von Word bzw. der Datei
  end;

  if Result > 0 then
    try
      try
        for i := 1 to Word.ActiveDocument.FormFields.Count do
          Data.Add(trim(Word.ActiveDocument.FormFields.Item(i).Result));
        Result := GetTickCount - Result;
      except
        Result := -1;
      end;
    finally
      Word.Quit;
      Word := Unassigned; // Word schließen
    end;
end;

[edit]
war irgednwie dumm einen neuen Post anzufagen - hätte den Text auch in den alten aufnehmen sollen, sorry
[/edit]