Loop through Footnote Reference Marks

Guessed · #1 09-20-2023, 09:47 PM

If you want to only address the footnote number in the footnote itself you can do it with this code. I recommend you apply the same character style that was applied to the footnote reference in the body of the document.

Code:

Sub FootnoteMark2()
  Dim aFN As Footnote
  For Each aFN In ActiveDocument.Footnotes
'    With aFN.Range.Paragraphs(1).Range.Words(1).Font  'enable this for direct formatting
'      .Superscript = True
'      .Position = 0
'    End With
    aFN.Range.Paragraphs(1).Range.Words(1).Style = "Footnote Reference"  'preferred method is to use a style
  Next aFN
End Sub

RobiNew · #2 09-21-2023, 12:10 AM

Many thanks Guessed! That was a real improvement.
I wonder if you could have a look at my question here:
https://www.msofficeforums.com/word-...tml#post177026
Thanks a lot, anyway!

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