Thread: [Solved] need to find
View Single Post
 
Old 01-03-2021, 03:55 AM
eduzs eduzs is offline Windows 10 Office 2019
Expert
  
Join Date: May 2017
Posts: 262
eduzs is on a distinguished road
Default
Try:

Code:
Sub test()

Dim oPara As Paragraph

For Each oPara In ActiveDocument.Paragraphs
    If oPara.Range.Characters(1) <> "<" Then oPara.Range.HighlightColorIndex = wdYellow
Next oPara
    
End Sub
__________________
Backup your original file before doing any modification.
Reply With Quote