Sub delEnter()
Dim last As Integer
Dim sel  As Integer
count =  10 
Selection.MoveRight Unit:=wdWord, count:= 1 , Extend:=wdExtend
While ' конец документа
 
 
    sel = Asc(Selection.Text)
    If sel =  13  And last <>  46  Then 'если выделен конец строки и пердыдущий знак не точка
        
        Selection.Delete 'удаляем конец строки
        Selection.MoveLeft Unit:=wdCharacter, count:= 1  'сдвигаем влево на символ для проверки
        If Selection.Text = "-" Then ' на -
         Selection.Delete ' если находим - то удаляем
         
         Else
         Selection.MoveRight Unit:=wdCharacter, count:= 1  ' находим, сдвигаем на прово
         Selection.TypeText Text:=" " 'ставим пробел
        End If
    Else
           last = Asc(Selection.Text) ' запоминаем предыдущий символ
           Selection.MoveRight Unit:=wdWord, count:= 1  'выделяем следующий кусок текста
        
    
    End If
    
    Wend

End Sub