Нумерация страниц в Документе, чтобы четные номера стояли слева, а нечётные справа

Макрос как бы игнорирует константы wdHeaderFooterPrimary и wdHeaderFooterEvenPages. При выполнении вставки номера с первой константой все номера стоят справа, а после второй все перемещаются влево. Хотя на самом деле, программа понимает, что работает с разными типами страниц. Так если писать в колонтитулы текст, пишет свой текст в чётные и нечётные страницы. Что я делаю не так?

Sub setHeaderFooter_()

With ActiveDocument Dim i For i = 2 To .Sections.Count - 1 ' Call delHeaderFooter(ActiveDocument.Sections(i)) With .Sections(i) .PageSetup.DifferentFirstPageHeaderFooter = True .PageSetup.OddAndEvenPagesHeaderFooter = True With .Headers(wdHeaderFooterPrimary) .LinkToPrevious = False .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberRight, FirstPage:=False ' .Range.InsertBefore "Odd Header" End With With .Headers(wdHeaderFooterEvenPages) .LinkToPrevious = False .PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberLeft, FirstPage:=False ' .Range.InsertBefore "Even Header" End With End With Next i ' Call delHeaderFooter(ActiveDocument.Sections(1)) ' Call delHeaderFooter(ActiveDocument.Sections(.Sections.Count)) End With

End Sub