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

tangqingfu

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

tangqingfu

找到了相关的帖子了：
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 编辑 ]

szqhb

收藏了，谢谢分享

硅谷少年

终极大法还是录制宏，excel是office组件中录制宏最方便的一下，哪里不会写录哪里，录了再优化学习。

dengcaimao

删除页眉，把页眉横线也删除了，非常不错，但是删除页脚，不能删除页脚设置的横线，需加一句代码y.Range.ParagraphFormat.Borders(wdBorderTop).LineStyle = wdLineStyleNone，就可以删除了，谢谢楼主。