Задать верхнюю границу для верхнего колонтитулов и нижнюю для нижних колонтитулов

[ac1-caesar]

Уважаемые форумчане!

В документе больше 300 страниц и каждая страница разделена (т.е. на каждой странице новый раздел).
Нужно установить верхнюю границу верхнего колонтитула Selection.PageSetup.HeaderDistance = CentimetersToPoints(0.5) и нижнюю границу нижнего колонтитула Selection.PageSetup.FooterDistance = CentimetersToPoints(0).
Подскажите, что не так делаю? Меняет только на одном листе.

Dim oSection As Word.Section
    Dim oHeaderFooter As Word.HeaderFooter

    For Each oSection In ActiveDocument.Sections
        For Each oHeaderFooter In oSection.Headers
            ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
            With Selection.PageSetup
                .HeaderDistance = CentimetersToPoints(0.5)
            End With
        Next oHeaderFooter
        
        For Each oHeaderFooter In oSection.Footers
            ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
            With Selection.PageSetup
                .FooterDistance = CentimetersToPoints(0)
            End With
        Next oHeaderFooter
    Next oSection