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