Word Ole Tabellenüerschrift auf jeder neuen Seite

[moppedfahrer]

Moin moin :-D
Ich schreib ein kleines Programm, das Rechnungen ausspuckt. Nun habe ich in Word eine Tabelle eingefügt und in die erste Zeile der Tabelle sozusagen die Überschriften für die Spalten geschrieben (Datum, Bla , Betrag usw.). Jetzt würde ich gern, dass auf jeder neu angefangenen Seite diese Überschrift nochmal erscheint. Hat da jemand ne Idee ?

Und nochwas (ähnliches) ...
Ich hätte gerne auf den Seiten 2 und folgende die Rechnungsnummer in der Kopfzeile... nicht aber auf Seite 1 ... geht das ?
Vielen Dank schonmal :dp: :dp: :dp:

EDIT: Das erste Problem hat sich gelöst

Delphi-Quellcode:

Selection.Rows.Item(1).Select;
Selection.Rows.HeadingFormat:=wdToggle;

und zum zweiten:

Delphi-Quellcode:

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

ActiveDocument.AttachedTemplate.BuildingBlockEntries("Einfache Zahl 3"). _Insert Where:=Selection.Range, RichText:=True

Selection.TypeText Text:="Seite "

so sieht das makro aus, das mein problem lösen würde. Aber bei Attachedtemplate kommt die Meldung, dass das diese Eigenschaft gar nich gibt ... Hilfe !!! :lol: :lol: :lol:

[toms]

Hallo! Probier's mal so: OleVariant(ActiveDocument).AttachedTemplate....