Mærkelig fejl i VBA og 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
    Selection.MoveDown Unit:=wdLine, Count:=1
    NormalTemplate.AutoTextEntries("Side X af Y").Insert Where:=Selection. _
        Range, RichText:=True
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Den fejler allerede i førset linje!

Jeg står i toppen af dokumentet!