Sub FootnoteMark()
'Format Reference Mark in Main Document and Footnote Section
Dim oStory As Range
Dim FtNt As Footnote
For Each oStory In ActiveDocument.StoryRanges
For Each FtNt In ActiveDocument.Footnotes
      With FtNt.Reference.Font
        .Superscript = True
        .Position = 0
      End With
Next
Next oStory
Set oStory = Nothing
End Sub