Sub Demo()
Dim Hlnk As Hyperlink, Para As Paragraph
With ActiveDocument.StoryRanges(wdFootnotesStory)
  For Each Hlnk In .Hyperlinks
    With Hlnk
      .TextToDisplay = Trim(.TextToDisplay)
      .Address = Trim(.Address)
      If .Range.Characters.Last.Next Like "[0-9A-Za-z(]" Then
        .Range.Characters.Last.Next.InsertBefore " "
      End If
    End With
  Next
  For Each Para In .Paragraphs
    With Para.Range
      Do While .Characters.Last.Previous.Text = " "
        .Characters.Last.Previous.Text = vbNullString
      Loop
    End With
  Next
End With
End Sub