You are absolutely correct, sorry for the omission.
Here is the code:
Code:
Sub foot2inline()
Dim oFeets As Footnotes
Dim oFoot As Footnote
Dim oRange As Range
Dim szFootNoteText As String
Dim index As Long
' Grabs the collection of FootNotes
Set oFeets = ActiveDocument.Footnotes
' Iterates through each footnote
For Each oFoot In oFeets
index = index + 1
szFootNoteText = oFoot.Range.Text
'Start search from beginning of document
Set oRange = ActiveDocument.Range
With oRange.Find
.Text = "^f" ' Looks for all footnotes
.Forward = True
.Wrap = wdFindStop
.Execute
End With
' Delete the footnote
oFoot.Delete
'Insert the footnote text
oRange.Text = " [Note " & index & ": " & szFootNoteText & "] "
'CHANGE COLOR HERE. Color code is below.
'oRange.Font.Color = 6299648
'Disables undo to save memory on very large documents.
'ActiveDocument.UndoClear
Next
End Sub