Sub Macro2()
Dim oSection As Section
Dim oHeader As Range
Dim oFooter As Range
Dim oRng As Range
Dim i As Integer
    For i = 1 To ActiveDocument.Sections.Count
        Set oSection = ActiveDocument.Sections(i)
        Set oHeader = oSection.Headers(wdHeaderFooterPrimary).Range
        oHeader.End = oHeader.End - 1
        Set oFooter = oSection.Footers(wdHeaderFooterPrimary).Range
        oFooter.End = oFooter.End - 1
        Set oRng = oSection.Range
        oRng.Collapse 1
        oRng.Text = oHeader.Text & vbCr
        Set oRng = oSection.Range
        oRng.End = oRng.End - 1
        oRng.Collapse 0
        oRng.Text = vbCr & oFooter.Text
        oSection.Headers(wdHeaderFooterPrimary).Range.Delete
        oSection.Footers(wdHeaderFooterPrimary).Range.Delete
    Next i
lbl_Exit:
    Set oRng = Nothing
    Set oFooter = Nothing
    Set oHeader = Nothing
    Set oSection = Nothing
    Exit Sub
End Sub