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

Ramses505 · 05-11-2019, 10:07 AM

I have some code that loops through the actual Footnotes that looks like this;

Code:

Sub Test_Format_Footnote()
Dim f As Footnote

For Each f In ActiveDocument.Footnotes
  With f.Range.Characters(1)
    If .Text = vbTab Or .Text = " " Then 'Use any other sensible detection logic here
      .Text = vbTab
    Else
      .InsertBefore "Look Here !"
    End If
  End With
Next
End Sub

How do I loop through the Footnote Reference Marks; the numbers in the text linking to the actual footnote ?

I would like to change the format of them on several ways - I would also like to know how to just loop through them for future reference.

Thanks