Sub ReconfigFootnotes()
  Dim FtNt As Footnote, Rng As Range
  With ActiveDocument
    For Each FtNt In .Footnotes
      Set Rng = FtNt.Reference
      With Rng
        If Rng.Paragraphs(1).LeftIndent = 0 Then
          'Delete spaces etc.
          Do While .Characters.First.Previous Like "[ " & Chr(160) & "]"
            .Characters.First.Previous.Text = vbNullString
          Loop
          'Invert ref. number and punctuation
          Do While Not .Characters.First.Previous Like "[0-9A-Za-z]" And Not .Characters.First.Previous Like "‹" And Not .Characters.First.Previous Like "«"
            .InsertAfter .Characters.First.Previous
            .Characters.First.Previous.Delete
          Loop
        End If
      End With
    Next
  End With
End Sub