Sub Footnotes_Spaces_Del()
'In the doc's footnotes, delete spaces ending paragraphs.

Dim oRng As range

Application.ScreenUpdating = False
    Set oRng = ActiveDocument.StoryRanges(2)
    With oRng.Find
       .ClearFormatting
       .Replacement.ClearFormatting
'Find one space and an invisible paragraph sign:
       .text = " ^p"
 'Add an extra space (or more in case there are extra spaces elsewhere in footnotes)
'before a paragraph end (note that the para sign is absent here!):
       .Replacement.text = "  "
       .MatchWildcards = False
       .Execute Replace:=wdReplaceAll
    End With
    With oRng.Find
'Find more than one space (in case of error, replace ; with comma):
       .text = Chr(32) & "{2;}"
'Delete them:
       .Replacement.text = ""
       .MatchWildcards = True
       .Execute Replace:=wdReplaceAll
     End With
 Application.ScreenUpdating = True
Set oRng = Nothing
End Sub

Sub CleanParas()
  Dim oRng As Range, iType As Integer
  For iType = 1 To 2
    Set oRng = ActiveDocument.StoryRanges(iType)
    With oRng.Find
      .ClearFormatting
      .Text = "^w^p"
      While .Execute
        'oRng.Select
        oRng.MoveEnd Unit:=wdCharacter, Count:=-1
        'oRng.Select
        oRng.Text = ""
      Wend
    End With
  Next iType
End Sub

Sub EliminaSpazio()
'Text and Footnotes: Removes space before paragraph mark
'Qui per poi eliminare tutti i paragrafi vuoti.
Dim aRng As Range
Dim iType As Integer
Dim Para As Paragraph
    For iType = 1 To 2
Set aRng = ActiveDocument.StoryRanges(iType)
For Each Para In aRng.Paragraphs
If Para.Range.Characters.Last.Previous = " " Then 'ERROR
Para.Range.Characters.Last.Previous.Delete
End If
Next Para
    Next iType
Set aRng = Nothing
End Sub

If Para.Range.Characters.Last.Previous = " " _
And Para.Range.Characters.Last.Previous <> Chr(13) Then
Para.Range.Characters.Last.Previous.Delete