Adicionando o segundo comentário a uma segunda seqüência de texto em uma macro VBA

0

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
    
por Chuck C. 17.02.2018 / 23:14

0 respostas