Paul,
Back in 2012, you helped me with a similar question and I hope you can do the same with the following. I am editing a Word document using Office 2016. The document I am editing contains multiple footnotes that are not numbered seriatim and I want to change the notes so that the first note is "1", the second is "2", etc. Word's "Find" function does not recognize the existing footnotes as such, but I can find them by instructing word to find "Superscript." I want to convert the existing footnotes using Word's footnote function. Here is a macro I have recorded that enables me to replace the existing footnotes one at a time. How do I modify this to replace all the footnotes in the existing document?

Selection.Find.ClearFormatting
With Selection.Find.Font
.Superscript = True
.Subscript = False
End With
With Selection.Find
.Text = ""
.Replacement.Text = "~"
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End With
.Footnotes.Add Range:=Selection.Range, Reference:=""
End With
End Sub