Get footnote reference

GLENCOE · #1 04-06-2015, 12:21 PM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Footnote help!!!	kilian	Word	3	03-27-2015 12:36 AM
Footnote is getting cut	Tyiliyra	Word	1	09-14-2014 11:19 AM
Reference number and cross reference for equation numbers to match the thesis format	wmac	Word	1	05-14-2013 08:54 PM
Problems with footnote	Christiano	Word	2	05-31-2011 08:55 PM
footnote problem	Palinkasocsi	Word	0	08-07-2010 01:13 AM