Word Automation -auf jeder Seite in die erste Zeile einfügen

[capo]

Ich füge so einiges über ein Stringgrid in ein Worddokument ein.
Dadurch entstehen viele Seiten im Worddokument.
Ich würde gerne am Anfang einer jeden Seite folgendes einfügen.

Delphi-Quellcode:

   S := WordApp.Selection;
   s.ParagraphFormat.Alignment := wdAlignParagraphright;
   S.Font.Bold := integer(True);
   S.TypeText('Datum');
   S.Font.Bold := integer(False);
   S.TypeParagraph;
   s.ParagraphFormat.Alignment := wdAlignParagraphleft;

Habt ihr einen Tipp wie ich das machen kann? Auf jeder Seite in die erste Zeile einzufügen?

Gruss vom capo