Sub InsertSpace()
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
Para.Range.Characters.Last.InsertBefore " "
Next Para
Next iType
Set aRng = Nothing
End Sub

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 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