Hi,
ich möchte die Header eines Serienbriefes per VBA einstellen, getrennt nach geraden und ungeraden Seiten. Kennt einer die Syntax?
Vielen Dank
Martin
For Each secX In ActiveDocument.Sections
secX.Headers(wdHeaderFooterFirstPage).Range.Text = strAddressat
Next
hi Martin
auszug aus der word-hilfe:
Verwenden Sie die OddAndEvenPagesHeaderFooter-Eigenschaft mit dem PageSetup-Objekt, um für gerade und ungerade Seiten unterschiedliche Kopf- und Fußzeilen anzugeben. Wenn die OddAndEvenPagesHeaderFooter-Eigenschaft auf True eingestellt ist, können Sie eine ungerade Kopf- oder Fußzeile zurückgeben, indem Sie wdHeaderFooterPrimary verwenden, und Sie können eine gerade Kopf- oder Fußzeile zurückgeben, indem Sie wdHeaderFooterEvenPages verwenden.
Verwenden Sie die Add-Methode mit dem PageNumbers-Objekt, um zu einer Kopf- oder Fußzeile eine Seitenzahl hinzuzufügen. Im folgenden Beispiel werden zu der Fußzeile der ersten Seite im ersten Abschnitt des aktiven Dokuments Seitenzahlen hinzugefügt.
With ActiveDocument.Sections(1)
.PageSetup.DifferentFirstPageHeaderFooter = True
.Footers(wdHeaderFooterPrimary).PageNumbers.Add _
FirstPage:=True
End With
lg erwin