|
|
#6
04-29-2019, 09:23 PM
|
||||
|
||||
Here's another way to skin that cat:
Code:
Sub DeletePages()
Dim p As Long
With ActiveDocument
For p = .ComputeStatistics(wdStatisticPages) To 1 Step -1
With .ActiveWindow.Panes(1).Pages(p).Rectangles(1).Range
If .HighlightColorIndex = wdNoHighlight Then .Delete
End With
Next
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Cannot see highlighted text for moving text in a do ument
|
Jonfrank1@me.com | Project | 1 | 01-09-2017 06:04 PM |
|
I need to convert shaded text into highlighted text on about 80 different long documents. VBA macro?
|
AustinBrister | Word VBA | 8 | 05-28-2015 02:42 PM |
|
Formatting- Apply changes to highlighted text results in same change to other text
|
sential | Word | 6 | 01-10-2014 03:22 PM |
| Delete button does not work with highlighted text | edmund36 | Word | 3 | 10-17-2011 02:34 AM |
| Highlighted text won't delete - when I press enter | Gague | Word | 2 | 07-09-2010 12:53 PM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode