You could use a macro like:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim FtNt As Footnote
For Each FtNt In ActiveDocument.Footnotes
With FtNt.Range.Characters.First.Previous
If .Text = " " Then .Text = vbTab
End With
Next
Application.ScreenUpdating = True
End Sub