need to find

[karkey]

I need to find and highlight paragraphs without this character "<" at the start of a paragraph

[eduzs]

Try:

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

[karkey]

eduzs Thanks a lot.

[gmaxey]

Karkey/eduzs


For Each Loops in VBA can start to bog down very quickly in long documents. Better to first find what you are looking for then apply processes:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Set oRng = ActiveDocument.Range
oRng.InsertBefore vbCr
With oRng.Find
.Text = Chr(13) & "<"
While .Execute
oRng.Paragraphs(2).Range.HighlightColorIndex = wdBrightGreen
Wend
End With
ActiveDocument.Range.Paragraphs(1).Range.Delete
lbl_Exit:
Exit Sub

End Sub

[eduzs]

I figured it would be possible to do it with find, but didn't know about this problem and how to do with find.
Thanks gmaxey

[gmaxey]

eduzs,



Now you do and somebody probably knows how to do it better. That is the beauty of VBA. Never ending learning process.