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

macropod · #2 10-11-2017, 01:38 PM

Try:

Code:

Sub DeletePriorAuditResults()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^pPrior Audit Results^p"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .Execute
  End With
  If .Find.Found = True Then
    .MoveEnd wdTable, 1
    .MoveEnd wdParagraph, 1
    .Text = vbNullString
  End If
End With
Application.ScreenUpdating = True
End Sub

kevinbradley57 · #3 10-11-2017, 02:14 PM

Paul,

Your code appears to be a more efficient way to remove the table, but it still leaves two consecutive empty paragraphs. I need it to leave only one.

Kevin

macropod · #4 10-11-2017, 03:23 PM

In my testing it removes one paragraph break before your text and one paragraph after the table. Are you sure there is only one empty paragraph either side?

kevinbradley57 · #5 10-11-2017, 04:55 PM

I've attached the template I'm working with. I see only one empty paragraph on either side of the table. Maybe I'm missing something?

macropod · #6 10-11-2017, 05:04 PM

I've run the macro against a document produced from your template and established that no empty paragraphs remain where 'Prior Audit Results' and the table had been! No empty paragraphs remain.

If anything, I'd have thought you wanted to leave one such paragraph - which is consistent with the way the other headings/tables are structured. In that case, omit:
.MoveEnd wdParagraph, 1

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
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