Microsoft Office Forums - View Single Post - [Solved] Loop through Footnote Reference Marks

RobiNew · 09-20-2023, 12:24 AM

Thanks a lot for your clear explanation of all the aspects of the problem.
The code below shows how I managed to format the marks in the footnote section. Can it be improved? Many thanks!

Code:

Sub FootnoteMark()
'Format Reference Mark in Footnote Section
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
Selection.HomeKey Unit:=wdStory
With Selection.Find
    .Text = "^f"
    End With
Selection.Find.Execute
While Selection.Find.Found = True
With Selection.Font
    .Superscript = True
    .Position = 0
    .Wrap = wdFindStop
End With
Selection.Find.Execute
Wend
ActiveWindow.ActivePane.Close
Selection.HomeKey
End Sub