How to highlight paragraphs and add comment

[KimLien]

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

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

Thank you.
Lien

[gmayor]

After the line

oRng.Paragraphs(1).Range.HighlightColorIndex = wdYellow

add the line

oRng.Comments.Add oRng, "This is the text of your comment"

[KimLien]

Thank you Gmayor for your reply.

But i mean, i want to add comment to the paragraph, not only the text.
Can you please spend sometime to help.

Thank you.
Kim Lien

[gmaxey]

Sub Highlight_WordN()
Dim oRng As Range
Dim oComment As Comment
  Set oRng = ActiveDocument.Range
  With oRng.Find
    Do While .Execute(FindText:="HAPPY")
      oRng.Paragraphs(1).Range.HighlightColorIndex = wdYellow
      Set oComment = ActiveDocument.Comments.Add(oRng.Paragraphs(1).Range, "Whatever text you want as the comment")
      oRng.Collapse 0
    Loop
  End With
lbl_Exit:
  Set oRng = Nothing
  Set oComment = Nothing
  Exit Sub
End Sub

[Aussiebear]

@KimLien. Welcome to the VBAX forum. Are you wanting to add comments "on the fly" rather than a set text?

[KimLien]

Thanks Gmaxey. I can do it now.

[KimLien]

Hi Ausiebear,
I'm glad to be here.
Yes, there is one thing that I need to add comment to paragraph as fast as possible.

[KimLien]

Hi all,
I have one more question. How to change font style of comments.

[gmaxey]

Add a line of code:

Sub Highlight_WordN()
Dim oRng As Range
Dim oComment As Comment
  Set oRng = ActiveDocument.Range
  With oRng.Find
    Do While .Execute(FindText:="HAPPY")
      oRng.Paragraphs(1).Range.HighlightColorIndex = wdYellow
      Set oComment = ActiveDocument.Comments.Add(oRng.Paragraphs(1).Range, "Whatever text you want as the comment")
      oComment.Range.Style = "Body Text" 'Or whatever built-in or custom named style you want to apply.
      oRng.Collapse 0
    Loop
  End With
lbl_Exit:
  Set oRng = Nothing
  Set oComment = Nothing
  Exit Sub
End Sub

[KimLien]

Hi Gmaxey
I got Message: 'Item with specified name not exist' when run the code

oComment.Range.Style= "Times New Roman"

then i try this and it works.

oComment.Range.Style.Font.Name = "Times New Roman"

Thank you very much.

[gmaxey]

You get the error because there is no builtin or custom style named "Times New Roman" on your PC. As you have seen, ".Font" is a property of the style object. "Times New Roman" is the name for one of fonts installed on your machine. You can create a style e.g., "MyComments" at set all of the properties as you wish then apply that style using the line of code that I provided.

[KimLien]

Thank you so much for your detail explainations. Have a nice day
Kim Lien