Microsoft Office Forums - View Single Post - [Solved] How can I delete pages with no highlighted text?

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