批量删除页眉页脚

用宏的方式来做，无视分节：

Sub 删除页眉内容()
    Dim j As Section
    Dim y As HeaderFooter
    For Each j In ActiveDocument.Sections
        For Each y In j.Headers
            y.Range.Delete
            y.Range.ParagraphFormat.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        Next
    Next
End Sub

Sub 删除页脚内容()
    Dim j As Section
    Dim y As HeaderFooter
    For Each j In ActiveDocument.Sections
        For Each y In j.Footers
            y.Range.Delete
        Next
    Next
End Sub

原文链接：http://club.excelhome.net/thread-609521-1-1.html