How to replace hard returns with soft returns

Find / replace text supports <Hard Return> but seems not to support <Soft return>.

Only way it can be done as far as I can see is to use VBA. For example:

    Dim sr As ShapeRange
    Dim s As Shape
    Dim ch As String

    Set sr = ActiveDocument.SelectableShapes.FindShapes(, cdrTextShape)
    
    For Each s In sr
        For i = 1 To s.Text.Story.Characters.Count
            If s.Text.Story.Characters(i) = vbCr Then
                s.Text.Story.Characters(i) = Chr(11)
            End If
        Next i
    Next s

Edit / find & Replace / replace text ?