Select sentence by searchgin for keyword and add comment

Hi,

I'm trying the following. I want to search for a word, select the whole sentence and add a comment to the sentence.
My macro works, but only for the word I search for. How can I select the whole sentence?
Any help would be more than welcome.

Regards,
Frits


Sub Keywordselection()
'
' Select keywords and add automatic comment
'
Dim range As range
Set range = ActiveDocument.Content

Text = InputBox("Type a keyword you want to search for")

Do While range.Find.Execute(Text) = True
ActiveDocument.Comments.Add range, "This is the keyword incl sentence you have been searching for"
Loop
End Sub

Use

Code:

---

Sub Keywordselection()
 '
 ' Select keywords and add automatic comment
 '
 Dim range As range, rngfound As range
 Set range = ActiveDocument.Content
 
Text = InputBox("Type a keyword you want to search for")
 
Do While range.Find.Execute(Text) = True
    Set rngfound = range.Sentences(1)
 ActiveDocument.Comments.Add rngfound, "This is the keyword incl sentence you have been searching for"
 Loop
 End Sub

---

Great, thanks Doug!

It works good, however there is a small error when type certain key words. The error is:
"run-time error '4605': This method or property is not available because the object refers to the end of a table row."

How could I solve this?

Try:

Code:

---

Sub Keywordselection()
 '
 ' Select keywords and add automatic comment
 '
 Dim range As range, rngfound As range
 Set range = ActiveDocument.Content
 
Text = InputBox("Type a keyword you want to search for")
 
Do While range.Find.Execute(Text) = True
    Set rngfound = range.Sentences(1)
    rngfound.End = rngfound.End - 2
 ActiveDocument.Comments.Add rngfound, "This is the keyword incl sentence you have been searching for"
 Loop
 End Sub

---

Great! It works. Thanks Doug.