---

Hallo Allerseits!
Mein Problem ist: Ich habe eine Wordvorlage mit Makros (*.dotm). In dieser Vorlage sind bereits händig die Abschnitte des Dokuments und auch die Kopf- und Fußzeilen angegeben. In der Kopfzeile eines Abschnittes will ich den dort vorhandenen Platzhaltertext "Kopfdatum" durch das aktuelle Datum beim Einfügevorgang ersetzen. Soweit so gut. Das bekomme ich noch hin. Aber das Problem ist, daß ich die Formatierung dabei verliere. Das Datum ist rechtsbündig formatiert. Mein Problem ist also: wie kann ich das betreffende Paragraph-Objekt im Header "greifen" und formatieren?
Hier ein Auszug aus meinem Testcode mit dem ich, bisher ergebnislos, hantiert habe.

Set Abschnitte = Word.ActiveDocument.Sections

For Each Abschnitt In Abschnitte
    MsgBox "Abschnitt " & Abschnitt.Index & " erreicht."
  If Abschnitt.Index = 2 Then
     
    Set Kopf = Abschnitt.Headers.Item(wdHeaderFooterPrimary)
   
    Set Tabulatoren = Abschnitt.Headers.Item(wdHeaderFooterPrimary).Range.Paragraphs.TabStops
    MsgBox Kopf.Range.Sentences.Item(1).Text
 
  End If
Next Abschnitt

Das Ganze steht in der Ereignisprozedur "ThisDocument! …  Document_New()"

Für Hinweise zur Beseitigung meines prinzipiellen Fehlers wäre ich dankbar.

------------------
MfG

Günter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP