Sub NameknulTipo()
Dim last As Integer
Dim sel  As Integer
Dim s As Long

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