Sub Macro1()
Dim oFN As Footnote
    For Each oFN In ActiveDocument.Footnotes
        oFN.Reference.Select
        With Selection
            With .FootnoteOptions
                .Location = wdBottomOfPage
                .NumberingRule = wdRestartContinuous    ' wdRestartPagewdRestartSection
                .StartingNumber = 1
                .NumberStyle = wdNoteNumberStyleArabic
                .LayoutColumns = 0
            End With
            .Footnotes.Add Range:=Selection.Range, Reference:=""
        End With
    Next oFN
    Set oFN = Nothing
End Sub