Numeração de página na palavra a partir de outra página

Question

Estou tentando ajudar um amigo. Ela está escrevendo sua tese de bacharel e sua professora bagunçou o documento enquanto olhava para ele. Um monte de quebras de página e outras coisas aparecem que não me permitem colocar uma paginação normal. Então, como não posso usar numeração normal, usei um script para numerar todas as páginas de 1 a 64. Mas quero que a numeração seja visível a partir da 8ª página (de 8 a 64). Como edito o seguinte script para fazer isso?

 Dim secNum As Long
Dim btnCancel ' give user chance to cancel
Dim bTrackChanges As Boolean
btnCancel = MsgBox(prompt:="Do you want to reset all of the page numbers in this document to number continuously?", _
    Title:="Are you sure?", _
    Buttons:=vbYesNo)
If btnCancel = vbNo Then
    MsgBox prompt:="Reset of continuous page numbering cancelled by user!", Buttons:=vbExclamation, Title:="Page Number Reset Cancelled!"
    Exit Sub
End If
bTrackChanges = ActiveDocument.TrackRevisions 'Graham Mayor
ActiveDocument.TrackRevisions = False ' Graham Mayor
With ActiveDocument
    For secNum = 2 To .Sections.Count
        .Sections(secNum).Headers(wdHeaderFooterPrimary) _
             .PageNumbers.RestartNumberingAtSection = False
    Next
End With
ActiveDocument.TrackRevisions = bTrackChanges 'Graham Mayor
MsgBox prompt:="The Continuous Page Numbers macro has run.", Title:="Page number reset macro finished!"