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

[p80286]

Hallo capo,

ich vermute mal ganz stark, daß Du nur "Datum... " einfügen willst und nicht

Zitat:

Delphi-Quellcode: markieren

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;

warum nicht ein Datumsfeld in der Kopfzeile? das wird in der Dokumentvorlage definiertr und gut ist. Du kannst das natürlich auch von Delphi erledigen lassen aber das ist eigentlich nicht nötig.

Wenn es unbedingt die erste Zeile sein muß, dann mußt Du einen Seitenvorschub/Manuellen Seitenumbruch (oder wie auch immer das Ding heißt) suchen und direkt dahinter Dein Datum einfügen. Wenn aber der Fließtext über mehrere Seiten geht, hast du ein Problem, daß der "Seitenanfang" erst durch den Ausdruck (den Drucker) bestimmt wird.
Aus der Sicht von Word ist ein Dokument ein Text, der auf ein vorgegebenes Papierformat ausgegeben wird. Da ist zunächst einmal keine "1.Zeile auf jeder Seite" vorhanden.

Gruß K-H

[edit=mkinzler]Delphi-Tags ergänzt Mfg, mkinzler[/edit]

[capo]

Danke für deine Hilfe.
Nein, nicht nur das Datum, das war nur ein Beispiel, soll noch ein wenig mehr drinnen stehen.
Ich habe es nun mit einer Textmarke gemacht die ich in den Briefkopf gesetzt habe, diese lasse ich dann einfach austauschen.
Das klappt!

Grüße
Vito