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