求大神帮忙关于word 中的几句代码不明白

小丑的笑泪

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then-----------------------------------------------1
        ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _----------------------2
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader-----------------------------3

请教大神这3部分分别是干什么用的？如果我想在Excel控制打开word中的页眉怎么办？

小丑的笑泪

没人回自己顶

tan133

宏录制的代码，不用过于依赖，

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
  有这句就可以打开页眉了

小丑的笑泪

tan133 发表于 2014-10-23 22:45
宏录制的代码，不用过于依赖，

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
...

好的，请问前边的1，2是什么意思？没用么？