Quote:
Originally Posted by TheBigBoss
Hi mate,
Try Footnotes.NumberingRule
Footnotes.NumberingRule property (Word) | Microsoft Docs
Then do a basic loop through sections and restart numbering (I haven't tried it but I think that's what you need)
Set myRange = ActiveDocument.Sections(1).Range
If myRange.Footnotes.NumberingRule = wdRestartSection Then
myRange.Footnotes.NumberingRule = wdRestartPage
End If |
Hi, TheBigBoss-
Thanks for this. When I read about the rule, it seems to imply that it will restart numbering with each page/section. What I actually need is continuous numbering, but I need it to start with 0, not with 1.
The code I'm currently using works brilliantly, except it starts with 1. Here's that code again. Is there something I can add to make it start with 0?
Sub ContinuePageNumbers()
Dim sec As Section
On Error GoTo Done
Application.ScreenUpdating = False
With ActiveDocument.ActiveWindow.View
.SeekView = wdSeekPrimaryFooter
End With
For Each sec In ActiveDocument.Sections
sec.Footers(wdHeaderFooterPrimary).Range.Select
Selection.HeaderFooter.PageNumbers.RestartNumberin gAtSection = False
.StartingNumber = 0
DoEvents
Next sec
With ActiveDocument.ActiveWindow.View
.SeekView = wdSeekMainDocument
End With
Selection.HomeKey
Done:
Application.ScreenUpdating = True
End Sub
Many thanks for your time!