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代码吗