This code works perfectly for reference marks in the main document, but leaves all reference marks untouched in the footnote section. Can anyone help? Thanks a lot!
Code:
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