Sub MoveFootnotesInline()

Dim FtNt As Footnote
Dim RefNum As Long
Dim oRng As Word.Range
Dim rng As Range

Application.ScreenUpdating = False
Set doc = ActiveDocument
Set rng = doc.Footnotes(1).Range
rng.WholeStory
rng.Select
Selection.Range.HighlightColorIndex = wdGray25

For RefNum = ActiveDocument.Footnotes.Count To 1 Step -1
    Set FtNt = ActiveDocument.Footnotes(RefNum)
    Set oRng = FtNt.Reference
     With oRng
      .Collapse wdCollapseStart
      .FormattedText = FtNt.Range.FormattedText
       .Font.ColorIndex = wdRed
      .InsertBefore " [Footnote: " & RefNum
      .InsertAfter "] "
       End With
    FtNt.Delete
  Next RefNum
  Application.ScreenUpdating = True
lbl_Exit:
  Exit Sub
End Sub

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