How to highlight paragraphs and add comment

[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.