Skip double paragraph mark during find and replace in MS Word?

[Jakov93]

Hi All

As this thread locked by the author:
Macro to delete new carriage returns / new paragraph marks - Microsoft Community

The author of this VBA code was Greg Maxey, and his code is awesome
My question, sometimes I add a double paragraph mark (Pressing enter twice) to separate between paragraphs, to distinguish each paragraph,


but when selecting the texts and applying the code, it will remove all paragraph marks and all the text merged in one paragraph, this makes trouble for me because it needs to reseparate each paragraph.

So, according to this VBA code, how to skip double paragraph marks during find and replace, to maintain each paragraph alone?

Thanks in advance

[gmayor]

Greg is currently enjoying a much needed break so wouldn't be around to comment anyway. To retain the double paragraph breaks the following addition should work

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
'Graham Mayor - https://www.gmayor.com - Last updated - 14 Jul 2021
Dim oRng As Word.Range
    Set oRng = Selection.Range
    If oRng.Characters.Last = Chr(13) Or oRng.Characters.Last = Chr(11) Then
        oRng.End = oRng.End - 1
    End If
    oRng.Text = Replace(oRng.Text, Chr(13) & Chr(13), "&%&%&%")
    oRng.Text = Replace(Replace(oRng.Text, Chr(11), " "), Chr(13), " ")
    oRng.Text = Replace(oRng.Text, "&%&%&%", Chr(13) & Chr(13))
lbl_Exit:
    Exit Sub
End Sub

though frankly for the future it would be better to use paragraph styles with added spacing to format the document to separate paragraphs than to use empty paragraphs. It makes the document much easier to edit.

[Jakov93]

Thanks Sir gmayor
You are awesome too.

I agree with U that using styles is better, but the problem when copying different paragraph texts from pdf files, then applying Greg's code, all the paragraphs are merged into a single paragraph for entire document, and this annoying for me.

Again, thanks for your edition of the code
Best Regards