Convert custom mark footnotes

[peter961]

I am editing a document in MS Word 2010 that contains over 1000 "custom mark" footnotes. I want to convert those footnotes to Word's auto footnoting. I have recorded the following macro that allows me to make the desired conversion one note at a time. I need to know how to convert the macro to run for the entire document. Any help greatly appreciated. Here is the macro I have recorded:

Sub CnvrtCstmFNs()
'
' CnvrtCstmFNs Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find.Font
.Superscript = True
.Subscript = False


End With
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.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
End With
.Footnotes.Add Range:=Selection.Range, Reference:=""
End With
End Sub

Peter961