Activedocument.Footnotes.Reference.Text

[Paul_Hossler]

Little more experimenting -- simple doc with 6 footnotes

ran little macro

First msgbox was index (1-6) and the text of the correspnding footnote
Second msg box was the square and the number 2 (the ascii value of the square)

Option Explicit
Sub ListFootnotes()
Dim oFootnote As Footnote
For Each oFootnote In ActiveDocument.Footnotes
   With oFootnote
      MsgBox .Index & " - " & .Range.Text
      'this displays box and '2' the value of the footnote marker
      MsgBox .Reference.Text & " -- " & Asc(.Reference.Text)
   End With
    Next
End Sub

Interesting

Hope you get it figured out

Paul