Dim Dokument As Object
Dim Kopfzeile1_alt As Word.Range
Dim Kopfzeile2_alt As Word.Range
Dim Fusszeile1_alt As Word.Range
Dim Fusszeile2_alt As Word.Range
Dim Kopfzeile1_neu As Word.Range
Dim Kopfzeile2_neu As Word.Range
Dim Fusszeile1_neu As Word.Range
Set Dokument = CreateObject("Word.Application")
Set Dokument = ActiveDocument
Dokument.Sections(2).PageSetup.DifferentFirstPageHeaderFooter = True
Set Kopfzeile1_alt = Dokument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.FormattedText
Set Kopfzeile1_neu = Dokument.Sections(2).Headers(wdHeaderFooterPrimary).Range.FormattedText
Kopfzeile1_neu = vbNullString
Kopfzeile1_neu.Collapse wdCollapseStart
Kopfzeile1_neu.FormattedText = Kopfzeile1_alt.FormattedText
Set Kopfzeile2_alt = Dokument.Sections(1).Headers(wdHeaderFooterPrimary).Range.FormattedText
Set Kopfzeile2_neu = Dokument.Sections(2).Headers(wdHeaderFooterPrimary).Range.FormattedText
Kopfzeile2_neu = vbNullString
Kopfzeile2_neu.Collapse wdCollapseStart
Kopfzeile2_neu.FormattedText = Kopfzeile2_alt.FormattedText
Set Fusszeile1_alt = Dokument.Sections(1).Footers(wdHeaderFooterPrimary).Range.FormattedText
Set Fusszeile1_neu = Dokument.Sections(2).Footers(wdHeaderFooterPrimary).Range.FormattedText
Fusszeile1_neu = vbNullString
Fusszeile1_neu.Collapse wdCollapseStart
Fusszeile1_neu.FormattedText = Fusszeile1_alt.FormattedText
With Dokument.Sections(2)
.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
End With
With Dokument.Sections(2)
.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
End With