Insert a letter 'a' after the reference number in the footnote area

gmaxey · #1 08-11-2025, 04:30 AM

I have already provided you the answer twice. If you can't post functional code, why should anyone else. The code I have given you acted on footnote 1. If you want an "a" after all footnotes you can use:

Code:

Sub ScratchMacro3()
'A basic Word Macro coded by Gregory K. Maxey
Dim ftNote As Footnote
Dim supLetter As String
  supLetter = "a"
  For Each ftNote In ActiveDocument.Footnotes
    With ftNote
      .Range.Characters.First.Previous.Delete
      .Range = supLetter & " " & .Range
      .Range.Characters.First.Font.Superscript = True
    End With
  Next
lbl_Exit:
  Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word Macro to Find a phrase followed by a number and a lower case letter, capitalizing the letter	rekent	Word VBA	2	01-14-2025 01:45 PM
Using text frames in the Footnote area	RRB	Word	9	12-07-2023 02:30 AM
Macro to change font size of Footnote Reference in Footnote Text	TheBigBoss	Word VBA	5	06-10-2022 06:14 AM
Removing line break and indentation between footnote number and footnote text in Word	jaanross	Word	5	02-06-2020 12:04 AM
Adding footnote number as part of footnote text	NoCalScribe	Word VBA	3	07-15-2019 07:20 PM