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

Jakov93 · #1 07-13-2021, 08:57 PM

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 · #2 07-13-2021, 10:46 PM

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

Code:

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 · #3 07-13-2021, 11:07 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word macro to insert text at the beginning of paragraph but skip tables	ashalles135	Word VBA	5	09-26-2018 09:49 AM
Replace space with paragraph mark	jeffreybrown	Word VBA	8	08-22-2018 03:31 PM
Double click on a cell to add check mark?	robbinskelly7	Excel	1	02-09-2015 07:05 PM
Find/Replace adds a style to what I'm searching for AND the following paragraph	JFDI	Word	2	03-27-2014 05:36 PM
Find bullets and replace with paragraph style?	cdybdahl	Word	1	12-02-2011 02:14 AM