彻底删除删除页眉页脚

chinablank

有些时候这些东西很烦人，去掉吧，增加打印面积。在word2003中测试通过！
Sub 删除页眉页脚()
    On Error Resume Next
    Application.ScreenUpdating = False
    With ActiveDocument
        .ActiveWindow.View.Type = wdPrintView
        For Each oSec In mydoc.Sections '文档的节中循环
            For i = 9 To 10
                .ActiveWindow.View.SeekView = i '9-wdSeekCurrentPageHeader,10-wdSeekCurrentPageFooter
                .Application.Selection.WholeStory
                .Application.Selection.Delete
                .ActiveWindow.View.SeekView = 0 ' wdSeekMainDocument
            Next
        Next
    End With
    Application.ScreenUpdating = True
    MsgBox "恭喜你，删除完毕！"
End Sub

[ 本帖最后由 chinablank 于 2011-5-8 22:53 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

szqhb

能够批注一下吗？
里面的9 to 10是什么用途？？？？？？？？？？？？？？

tangqingfu

谢谢楼主的分享！
楼主在顶楼作了说明：9表示页眉；10表示页脚。应该是在页眉和页脚中循环吧
'9-wdSeekCurrentPageHeader,10-wdSeekCurrentPageFooter

[ 本帖最后由 tangqingfu 于 2011-5-10 19:29 编辑 ]

szqhb

原帖由 tangqingfu 于 2011-5-10 19:21 发表
谢谢楼主的分享！
楼主在顶楼作了说明：9表示页眉；10表示页脚。应该是在页眉和页脚中循环吧
'9-wdSeekCurrentPageHeader,10-wdSeekCurrentPageFooter

谢谢唐老弟解答。本人“爱国”，只懂中文。

orange1984

真的很有用谢谢了哈

40525299999

这个只能删除当前节的页眉页脚，不能删除整个文档（多节）的，并且删除后没有清除格式，可能会产生横线显示的问题，需要优化，我可以试着修改一下

whyEnglish

不会写代码，昨天正好录了一个去分节符的宏，不知可不可以放到前面？

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll