Try:
Code:
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