View Single Post
 
Old 08-09-2025, 07:07 AM
gmaxey gmaxey is offline Windows 10 Office 2019
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,617
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

RobiNew


Your code doesn't do anything. Inserting the "a" after the reference number as you request is at best a mirage. It will not affect the numbering of the footnote in the document body.


In any case:

Code:
Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim ftNote As Footnote
Dim supLetter As String
  supLetter = "a"
  Set ftNote = ActiveDocument.Footnotes(1)
  With ftNote
    .Range.Characters.First.Previous.Delete
    .Range = supLetter & " " & .Range
    .Range.Characters.First.Font.Superscript = True
  End With
lbl_Exit:
  Exit Sub
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote