Sidetal og forskellig sidemargin i Word

Hej eksperter

Jeg har en brev-skabelon i Word, som volder mig lidt kvaler. Jeg har følgende kode, som gør, at når man er på side to og taster ctrl+shift+f, så ændrer sideopsætningen sig, så højre margin bliver 2 i stedet for 5, og det virker fint.

Option Explicit

Private Sub Document_Open()
    ReformatPages
End Sub


Sub ReformatPages()
Dim sec As Section
Dim hist As Long
Dim l1 As Single
Dim r1 As Single
Dim t1 As Single
Dim b1 As Single
Dim l2 As Single
Dim r2 As Single
Dim t2 As Single
Dim b2 As Single
Dim rng As Range

l1 = 2
r1 = 5
t1 = 7.32
b1 = 2
l2 = 2
r2 = 2
t2 = 2
b2 = 2

'Remove all previous section breaks
With ActiveDocument.Range.Find
    .Execute Findtext:="^b", ReplaceWith:="", Replace:=True
End With
'Format first section
ActiveDocument.Sections(1).PageSetup.LeftMargin = CentimetersToPoints(l1)
ActiveDocument.Sections(1).PageSetup.RightMargin = CentimetersToPoints(r1)
ActiveDocument.Sections(1).PageSetup.TopMargin = CentimetersToPoints(t1)
ActiveDocument.Sections(1).PageSetup.BottomMargin = CentimetersToPoints(b1)

'Find end of first page
Set rng = ActiveDocument.Range
rng.Collapse wdCollapseStart
rng.Select

Do While Selection.Information(wdActiveEndPageNumber) < 2
    hist = Selection.End
    Selection.MoveDown
    If Selection.End = hist Then
        Exit Do
    End If
Loop

'break into two sections and format following pages
If Selection.Information(wdActiveEndPageNumber) = 2 Then
    Selection.InsertBreak wdSectionBreakNextPage
    ActiveDocument.Sections(2).PageSetup.LeftMargin = CentimetersToPoints(l2)
    ActiveDocument.Sections(2).PageSetup.RightMargin = CentimetersToPoints(r2)
    ActiveDocument.Sections(2).PageSetup.TopMargin = CentimetersToPoints(t2)
    ActiveDocument.Sections(2).PageSetup.BottomMargin = CentimetersToPoints(b2)
End If
End Sub

Problemet er at jeg også skal have sidetal på side to og frem. Når jeg indsætter følgende kode, så får jeg ingen sidetal på side 1, sidetal på side 2, ingen sidetal på side 3, men sidetal derefter.

Hvorfor får jeg ikke sidetal på side 3? Hvad skal jeg gøre anderledes?

lenebene