Как удалить из текста переносы, расставленные вручную

 Private Sub delallButton_Click() 
 Selection.Find.ClearFormatting 
 Selection.Find.Replacement.ClearFormatting 
 With Selection.Find 
 .Text = Chr(31) 
 .Replacement.Text = "" 
 .Forward = True 
 .Wrap = wdFindContinue 
 End With 
 Selection.Find.Execute Replace:=wdReplaceAll 
 End Sub

Sub ThreeWAYS()
Dim r As Object  'указатель для слов
Dim j As Byte    'счётчик для мягких переносов в одном слове
 
Selection.HomeKey unit:=wdStory 'становимся в начало текста
    With Selection.Find
    .Text = Chr(31)             'ищем мягкие переносы
    .Wrap = wdFindStop
    .Execute
        Do                      'пока поиск находит .Text
                Set r = Selection.Words.Last
            Do              'пока мы (курсор) на анализируемом слове
                t = Replace(Selection.Words.Last.Text, Chr(31), "")
                j = j + 1 'номер символа переноса
                    Select Case _
                     MsgBox("Удалить " & j & "-й перенос " & _
                    "в слове «" & t & "»?", vbYesNoCancel)
                        Case Is = vbYes:    Selection.Delete
                        Case Is = vbNo
                        Case Is = vbCancel: Exit Sub
                    End Select
                                    .Execute 'выделение следующего
            Loop Until Replace(Selection.Words.Last.Text, Chr(31), "") <> t
                j = 0
        Loop Until Not .Found
    End With
End Sub

Sub ThreeRoads()
Dim r As Range  'указатель для обрабатываемого слова
 
Selection.HomeKey unit:=wdStory 'становимся в начало текста
    With Selection.Find
    .Text = Chr(31)             'ищем мягкие переносы
    .Wrap = wdFindStop
    .Execute
    If Not .Found Then MsgBox "Основной текст " & ActiveDocument & _
    " от мягких переносов [символов Chr(31)] очищен.": Exit Sub
        Do                      'пока поиск находит .Text
                Set r = Selection.Words.Last
            Do              'пока мы (курсор) на анализируемом слове
                t = Replace(Selection.Words.Last.Text, Chr(31), "")
                    Select Case _
                     MsgBox("Удалить мягкий перенос " & _
                    "в слове «" & Trim(t) & "»?", vbYesNoCancel)
                        Case Is = vbYes:    Selection.Delete
                        Case Is = vbNo      'едем далее по тексту
                        Case Is = vbCancel: Exit Sub
                    End Select
                                    .Execute 'выделение следующего
            Loop Until Not .Found
        Loop Until Not .Found
    End With
End Sub