Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oFN As Footnote
Dim oRng As Range
  For Each oFN In ActiveDocument.Footnotes
    With oFN
      .Reference.Font.Superscript = False
      .Reference.InsertBefore "["
      .Reference.InsertAfter "]"
      Set oRng = .Range.Characters(1)
    End With
    With oRng
      .Collapse wdCollapseStart
      .MoveStart wdCharacter, -2
      .MoveEnd wdCharacter, -1
      .Font.Superscript = False
      .InsertBefore "["
      .InsertAfter "]"
    End With
    Set oRng = Nothing
  Next
lbl_Exit:
  Exit Sub
End Sub