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