Sub Del_Paras_Last_Space

Dim oRng As range
Dim iType As Integer
  For iType = 1 To 2
    Set oRng = ActiveDocument.StoryRanges(iType)
    With oRng.Find
       .ClearFormatting
       .Replacement.ClearFormatting
       .text = " ^p"
       .Replacement.text = "^p"
       .Matchwildcards = False
       .Execute Replace:=wdReplaceAll
    End With
  Next iType
End sub