Sub MoveFootnotes()
    Dim oFootnote As Footnote
    Dim oRange As Range
    Dim refNumber As String
    Dim text As String

    For i = ActiveDocument.Footnotes.Count To 1 Step -1
        Set oFootnote = ActiveDocument.Footnotes(i)
        Set oRange = oFootnote.Reference
        refNumber = oRange.text
        text = oFootnote.Range.text
        oRange.text = "[" & refNumber & ": " & text & "]"
        oRange.Font.Color = wdColorRed 'color the reference number to red
        oRange.HighlightColorIndex = wdGray25 'highlight the text in 25% gray
        oFootnote.Delete
    Next
End Sub