Any macro to selectively get rid of soft returns?

Gilvv · #1 05-13-2018, 08:20 PM

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 · #2 05-13-2018, 09:36 PM

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

Gilvv · #3 05-13-2018, 10:40 PM

Hello,

Thank you for your reply.

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

macropod · #4 05-13-2018, 11:04 PM

I suspect you want to do something like:

Code:

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 · #5 05-14-2018, 06:36 AM

Thank you, so much!

I truly appreciate it.

I'll try it and will let you know.

Best regards.

Gilvv · #6 05-14-2018, 09:40 PM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro To Delete Specific Carriage Returns	NeviZero	Word VBA	2	02-09-2018 02:16 PM
Can't Get Centering right with soft return	Nathan8752	Word	10	11-19-2015 07:06 AM
how to selectively highlight text in word	cnyoon2	Word	1	08-04-2015 08:16 AM
Need to Selectively Merge Records to Different Places in a Word Directory-type Document	TotheMoonAlice	Mail Merge	3	03-27-2015 08:11 AM
How can I tag and selectively extract text (multiple files)?	PaulFitz	Word VBA	12	10-31-2014 08:40 PM