Sub foot2inline()
Dim oFeets As Footnotes
Dim oFoot As Footnote
Dim oRange As Range
Dim szFootNoteText As String

' Grabs the collection of FootNotes
Set oFeets = Word.ActiveDocument.Footnotes

' Iterates through each footnote
For Each oFoot In oFeets
	

	
	szFootNoteText = oFoot.Range.Text
	
	'Start search from beginning of document
	Selection.HomeKey Unit:=wdStory
	Selection.Find.ClearFormatting
  
	With Selection.Find
		.Text = "^f" ' Looks for all footnotes
		.Forward = True
		.Wrap = wdFindStop
	End With
	
	Selection.Find.Execute
	' Delete the footnote
	oFoot.Delete
	
	'Insert the footnote text
	'Here you do whatever format tickles your fancy
	Selection.Text = " [Note: " + szFootNoteText + "] "

	'CHANGE COLOR HERE. Color code is below.
	Selection.Font.Color = 6299648

	'Disables undo to save memory on very large documents.
	ActiveDocument.UndoClear
Next
End Sub

Sub foot2inline()
Dim i As Long
Dim Rng As Range
Dim NtRng As Range
Dim FtNtRef As String
With ActiveDocument
  For i = .Footnotes.Count To 1 Step -1
    With .Footnotes(i)
      Set Rng = .Reference
      Set NtRng = .Reference
      FtNtRef = .Reference.FormattedText
      Rng.Collapse wdCollapseStart
      Rng.FormattedText = .Range.FormattedText
      With Rng
        .InsertAfter "]"
        .InsertBefore " "
        .Collapse wdCollapseStart
        .InsertCrossReference wdRefTypeFootnote, wdFootnoteNumberFormatted, i
        .InsertBefore "["
        .Start = .Start - 1
        .End = NtRng.End
        .Fields(1).Unlink
        .Font.Color = 6299648
      End With
      .Delete
    End With
  Next
End With
End Sub