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

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.

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