Inhaltsverzeichnis erstellen in word über automation

[huber eugen]

Hallo zusammen,
ich baue gerade eine report generator für meine anwendung zusammen. dummerweise habe ich keine ahnung wie aus meiner anwendung heraus das Inhaltsverzeichnis in word erstellen lasse.
bisher sieht mein code so aus:
...
word.Selection.Style := ('Überschrift 1');
Word.Selection.TypeText(Text := 'Alle Fehler:');
....
jetzt würde ich gerne das Inhaltsverzeichnis am dokumenten anfang erstellen lassen.

ich habe es mit --> word.selection.TablesOfContents.Add ()
probiert aber irgendwie bekomme ich die parameter nicht zusammen(besser ich verstehe es nicht). kann mir jemand mit einem Beispiel aushelfen.
danke

[Stefan Schreier]

Hallo Huber,

ich habe mir gerade mal das VBA-dazu erstellt.
Es sollte nicht schwer sein, es nach Delphi zu übersetzen:

// gehe an den Anfang des Dokuments
Selection.HomeKey Unit:=wdStory

// und füge das Inhaltsverzeichnis mit entsprechendem Layout ein
With ActiveDocument
.TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
LowerHeadingLevel:=9, IncludePageNumbers:=True, AddedStyles:="", _
UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
True
.TablesOfContents(1).TabLeader = wdTabLeaderDots
.TablesOfContents.Format = wdIndexIndent
End With

Grüsse
Stefa

[huber eugen]

Hallo Herr Schreier,
danke für die Hilfe, jetzt funktioniert auch