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