Remove consecutive empty paragraphs within existing macro

kevinbradley57 · #1 10-11-2017, 10:00 AM

The code below removes a particular paragraph and the subsequent table. The paragraph is preceded by an empty paragraph, and the table is followed by an empty paragraph (both empty paragraphs are used as spacers). It works great, but after it runs there are two consecutive empty paragraphs. I need the code to remove one of those empty paragraphs. Help?

Code:

Sub DeletePriorAuditResults()
'
' DeletePriorAuditResults Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Prior Audit Results^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.MoveDown Unit:=wdLine, Count:=4, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.Find.Execute
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
automatic insert hypens until the end of the row and in empty rows between paragraphs	Ivica	Word	3	12-28-2015 01:31 PM
making translated paragraphs consecutive	user2969	Word	1	01-29-2014 09:00 PM
Delete lots of empty space between paragraphs.	FieldTechnician	Word	4	10-25-2013 01:14 PM
Remove empty lines at the top of every page	dexter30	Word VBA	2	08-05-2013 08:37 PM
How to remove that pesky empty Page	widescreenforever	Word	1	11-28-2012 02:49 PM