如何通过VBA代码删除页眉或页脚中的内容

请教如何通过VBA代码删除页眉或页脚中的所有内容，含页眉中的那条线，最好也能够处理多节的文档，同时是分开处理删除页眉或页脚，即两个宏，一个是删除页眉，一个是删除页脚的。

找到了相关的帖子了：
http://club.excelhome.net/viewth ... hlight=%C9%BE%B3%FD

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

[ 本帖最后由 tangqingfu 于 2010-8-9 05:21 编辑 ]

收藏了，谢谢分享