Any macro to selectively get rid of soft returns?

[Gilvv]

Hello,

I wonder if anyone may have a macro suggestion to selectively get rid of soft returns.



For a number of reasons, I only want to get rid of soft returns in chunks of text so that the sentences are continuous (not segmented, like in the image attached). Essentially, I want to change the soft returns to blank spaces but only in the chunks of text.

Any help would be greatly appreciated.

[macropod]

Your displayed screenshot suggests you're using Word, but you've posted in the Excel forum. Please clarify.

[Gilvv]

Hello,

Thank you for your reply.

It is in Excel. I just posted the text through Word to show the soft returns.

[macropod]

I suspect you want to do something like:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, j As Long, StrTmp As String
With Selection
  For i = 1 To .Cells.Count
    StrTmp = .Cells(i).Value
    For j = Len(StrTmp) - 1 To 1 Step -1
      If Mid(StrTmp, j, 1) = Chr(10) Then
        If (Mid(StrTmp, j - 1, 1) <> Chr(10)) And (Mid(StrTmp, j + 1, 1) <> Chr(10)) Then
          StrTmp = Left(StrTmp, j - 1) & " " & Right(StrTmp, Len(StrTmp) - j)
        ElseIf (Mid(StrTmp, j + 1, 1) = Chr(10)) And (Mid(StrTmp, j + 2, 1) = Chr(10)) Then
          StrTmp = Left(StrTmp, j - 1) & Right(StrTmp, Len(StrTmp) - j)
        End If
      End If
    Next
    .Cells(i).Value = StrTmp
  Next
End With
Application.ScreenUpdating = True
End Sub

[Gilvv]

Thank you, so much!

I truly appreciate it.

I'll try it and will let you know.

Best regards.

[Gilvv]

Paul,
Thank you so very much!
You are a magician.
The macro works like a charm.