#1
|
|||
|
|||
Remove consecutive empty paragraphs within existing macro
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 Last edited by kevinbradley57; 10-11-2017 at 04:53 PM. |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
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 |
#4
|
||||
|
||||
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?
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
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?
|
#6
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
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 |