Answer: Trying to enter cyclic page numbers as footers in MS Word

answer re: Trying to enter cyclic page numbers as footers in MS Word

Jul 5 '23

0

See if this is what you want:

Sub InsertCyclicFooters()
    Dim doc As Document
    Dim sec As Section
    Dim rng As Range, rngGoto As Range
    Dim i As Integer
    Dim n As Integer
    Dim pageCount As Long
    Set doc = ActiveDocument
    n = 2
    
    pageCount = doc.Range.Information(wdNumberOfPagesInDocument)
    
    Set rng = doc.Characters(1)

…

Open Full Answer