I have macro to find text then highlight paragraphs having it.
Now i want to add comment to that paragraphs. But dont know how.
Can anyone suggest.
Here is code for Highlight
Thank you.Sub Highlight_WordN() Dim oRng As Range Set oRng = ActiveDocument.Range With oRng.Find Do While .Execute(FindText:="HAPPY") oRng.Paragraphs(1).Range.HighlightColorIndex = wdYellow oRng.Collapse 0 Loop End With lbl_Exit: Set oRng = Nothing Exit Sub End Sub
Lien