Question already posted here:
http://www.vbaexpress.com/forum/show...note-reference
Hi everyone,
I am struggling to find a "simple information" on a footnote.
I need to get the reference character that is used for a given footnote. Say a Word doc has many footnotes/endnotes, I already have a macro that plays in them, but for every note, the macro has to display the original reference (in a msgbox for now), so say 1, 2, 3, 4, or a, b, c, or whatever symbol is used to call the footnote.
I found this thread
http://www.vbaexpress.com/forum/show...Reference-Text which gives interesting information, but I couldn't extract exactly what I need.
Using the code given by macropod in this thread, I found that this code would copy the reference mark next to the original one, and then nRef would give me the symbol that was used... But I don't actually want/need to copy the reference, I just want to know what it is! aFN.Index won't give me this information... and I can't find an equivalent "GetCrossReference" function that seems to work (not sure how to play with GetCrossReferenceItems, if that's the one)...
Please advise!
Code:
Dim aFN as Footnote
Dim nRef As String
For Each aFN In ActiveDocument.Footnotes
With aFN
With .Reference.Characters.First
.Collapse
.InsertCrossReference wdRefTypeFootnote, wdFootnoteNumberFormatted, aFN.Index
nRef = .Characters.First.Fields(1).Result 'this does give me the information I need, but not without using the line above
MsgBox nRef
End With
End With
Next aFN
Basically, what I want to accomplish is:
Code:
Dim aFN as Footnote
Dim nRef As String
For Each aFN In ActiveDocument.Footnotes
nRef = 'what do I need here to get the reference mark?
MsgBox "Character/symbol used to call this footnote is " & nRef
Next aFN
Thanks for helping me...
Glencoe