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