Como eu modificaria esse código para encontrar uma segunda string de texto ("bbb") e adicionar um segundo comentário [por exemplo, "meu comentário # 2"] a ele. Então um terceiro e assim por diante. Obrigado.
Sub CommentBubble()
'
' CommentBubble Macro
'
'
Dim range As range
Set range = ActiveDocument.Content
Do While range.Find.Execute("[X] No episodes of osteomyelitis") = True
ActiveDocument.Comments.Add range, "IF THIS OPTION IS CHECKED, YOU SHOULD COMPLETELY DELETE QUESTIONS 5 'a' THROUGH 'e'"
Loop
Do While range.Find.Execute("6. Does the veteran have any history of hospitalizations/surgery related to the bone condition?") = True
ActiveDocument.Comments.Add range, "IF 'NO' IS CHOSEN, DELETE THE CHART"
Loop
End Sub