Thread: [Solved] How can I delete pages with no highlighted text?
View Single Post
 
Old 04-29-2019, 09:11 PM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2016
Expert
  
Join Date: Aug 2014
Posts: 4,144
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default
Paul - that too was my first thought, but it didn't work for me either. However looking at it again, it seems to work if you add a line to the code

Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\Page")
Rng.Select
If Rng.HighlightColorIndex = wdNoHighlight Then Rng.Delete

Why that should be needed I am not sure, but it certainly changes the outcome.
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote