Inhaltsverzeichnis aus einer Worddatei auslesen

[hhluemmel]

Ich habe folgendes Problem,
ich muss aus einem bestehenden Worddokument das Inhaltsverzeichnis auslesen bzw. einen
bestimmten Eintrag finden, dann zu diesem Eintrag den Text ect. auslesen und in ein neues
Dokument schreiben ...

Mein Ansatz geht über "TableOfContents" ..

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Word : Variant;
  toc, i : integer;
begin
  try
    Word := GetActiveOleObject('Word.Application');
  except
    Word := CreateOleObject('Word.Application');
  end;
  Word.Visible := True;
  doc := Word.Documents.Open('D:\test.doc',
                      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                      EmptyParam, EmptyParam, EmptyParam, EmptyParam);

  toc := Word.ActiveDocument.TableOfContents.count;
  for i := 0 to toc - 1 do
  begin
    // Inhalte der Verzeichnis z.b. in ein Memofeld schreiben
  end;

end;

Das erste Problem ist, dass ich nicht auf TableOfContents zugreifen kann ... und dass würde mich halt
interesieren wie es weiter geht ..

Besten Dank für Eure Hilfe