![]() |
|
#1
|
||||
|
||||
![]()
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] |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Ivica | Word | 3 | 12-28-2015 01:31 PM |
![]() |
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 |
![]() |
dexter30 | Word VBA | 2 | 08-05-2013 08:37 PM |
![]() |
widescreenforever | Word | 1 | 11-28-2012 02:49 PM |