Loop through Footnote Reference Marks

Guessed · #1 09-19-2023, 03:55 PM

Your code is flawed, it repeats the inner loop on exactly the same thing multiple times. The Footnote References only exist in the Main Story so there is no point in looping through every story range.

You can't actually put footnote references in text boxes, headers, footers or footnote areas because Word doesn't allow it (although you can paste one in and it resets to 1) - so looping through the various ranges to find footnotes serves no purpose (and in fact errors in the below code).

Looking at the code issue, when you want to run a loop across each StoryRange you need to refer to that story range instead of the parent document (see the bold word in this code and compare with your code)

Code:

Sub FootnoteMark()
  Dim oStory As Range, FtNt As Footnote
  For Each oStory In ActiveDocument.StoryRanges
    For Each FtNt In oStory.Footnotes
       'do stuff
    Next
  Next oStory
End Sub

However, this inner loop will fail because Footnotes don't go into different story ranges - just the main body of the document. This means there is no point repeating the inner loop the same number of times as there are story ranges.

RobiNew · #2 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

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Removing line break and indentation between footnote number and footnote text in Word	jaanross	Word	5	02-06-2020 12:04 AM
Footnote reference numbers precede by superscript '(' and follow w/ superscript ')'	Swarup	Word	4	07-18-2019 05:51 PM
How do I fix this unknown problem? Right-angle marks in corners - crop marks	Quillo1234	Word	2	07-20-2016 02:24 AM
How to keep the footnote(endnote) reference numbers when pasting text between two documents?	gn4619	Word	4	10-22-2015 08:01 AM
Get footnote reference	GLENCOE	Word VBA	1	04-07-2015 04:08 AM