vb 封锁word页眉

vb 关闭word页眉一段程序生成word页脚后 页眉总有条横线 有高手给出了隐藏横线代码但横线是消除了 但页眉

vb 关闭word页眉

一段程序生成word页脚后 页眉总有条横线 有高手给出了隐藏横线代码但横线是消除了 但页眉占着位置 2页的文档变成了三页  通过录制宏关闭了横线 
vb 关闭word页眉
宏如下
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
有大侠能改成VB代码吗

[最优解释]
查看你的收件箱
[其他解释]
http://download.csdn.net/detail/veron_04/1627134
[其他解释]
好帖子啊,学习啦!!