Sub CnvrtCstmFNs()
Dim FtNt As Footnote
For Each FtNt In ActiveDocument.Footnotes
  With FtNt
    With .Reference.FootnoteOptions
      .Location = wdBottomOfPage
      .NumberingRule = wdRestartContinuous
      .StartingNumber = 1
      .NumberStyle = wdNoteNumberStyleArabic
    End With
    .Reference.Footnotes.Add Range:=.Reference, Reference:=""
  End With
Next
End Sub