VBA Format Footnote Text Numbering

[Shelley Lou]

I recorded the code below using Find and Replace but I have to have the cursor placed directly in the footnote text. The code below formats the Footnote Text Numbering from 10pt Superscript to 8pt. Normal Text.

Is there a better way I could perform this action to do the formatting automatically when running the code?

Before
Before.JPG

After
After.JPG

Sub Test1_FormatFootnoteNumber()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 8
.Italic = False
.Bold = True
.Superscript = False
.Subscript = False
End With
With Selection.Find
.text = "^f"
.Replacement.text = "^&"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub