Adding numbers to footnotes that lack them

Attachment 27596

I need a macro that can check to see if a footnote at the bottom of the page has been numbered and if not number it.
I know how I can do this manually and recorded a macro but when run it crashed(but that was just a concept test).
I don't know how the issue happened.

Any help appreciated

Jon

For example:

Code:

---

Sub Demo()
Application.ScreenUpdating = False
Dim FtNt As Footnote, Rng As Range
For Each FtNt In ActiveDocument.Footnotes
  With FtNt
    Set Rng = .Range.Paragraphs(1).Range
    If Rng.Characters.First <> .Reference Then
      Rng.InsertBefore " "
      Rng.Collapse wdCollapseStart
      Rng.FormattedText = .Reference.FormattedText
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

---

Thanks Paul, that fixed 5000+ notes in a few seconds.
Another macro to add to my knowledge.

Jon