Convert Footnotes to Regular Text [Word VBScript]

The next script for Word converts all footnotes and their references to regular text. The footnotes are inserted at the end of the document.

Sub convert_footnotes() ' Convert Footnotes to Regular Text ' (c) Oren Hadar, 2009 Dim fn_total Dim fn_number Dim fn_ref fn_total = ActiveDocument.Footnotes.Count ActiveDocument.Content.InsertAfter vbCrLf & vbCrLf & "Notes" & vbCrLf For fn_number = 1 To fn_total ActiveDocument.Footnotes(fn_number).Range.Copy ActiveDocument.Content.InsertAfter fn_number & vbTab Set my_range = ActiveDocument.Content my_range.Collapse Direction:=wdCollapseEnd my_range.Paste ActiveDocument.Content.InsertAfter vbCrLf Next For fn_ref = 1 To fn_total ActiveDocument.Footnotes(1).Reference.Select Selection.Text = fn_ref With Selection.Font .Superscript = True End With Next End Sub