Sub Spaces()

    With selection.range.Find
        .text = Chr(13) & "{2,}"
        .Replacement.text = Chr(13)
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
        .text = " {1,}([+-]) {1,}"
        .Replacement.text = "\1"
        .Execute Replace:=wdReplaceAll
    End With
End Sub