Macro para inserir bolhas de comentário no Microsoft Word?

Question

Eu tenho um problema e quero saber se uma macro pode resolvê-lo:

Gostaria que uma macro passasse por um documento do Microsoft Word, localizasse todas as ocorrências de uma cadeia de texto e, em seguida, destacasse a sequência e criasse um balão de comentários (o tipo que você usa "acompanhar alterações") que contém um segunda seqüência de texto (por exemplo, "Isso parece errado").

As macros podem inserir bolhas de comentários desse jeito?

    

Answer 1

Apenas codifiquei isto (no Word 2010, embora não consiga ver nada que o impeça de funcionar em versões mais antigas):

Sub CommentBubble()
'
' CommentBubble Macro
'
'
Dim range As range
Set range = ActiveDocument.Content

Do While range.Find.Execute("aaa") = True
    ActiveDocument.Comments.Add range, "my comment"
Loop
End Sub

O que funciona, apesar de que obviamente precisa ser arrumado um pouco :) Você pode criar um objeto Comment (e especificar coisas como Author, Initals ... mas não é possível escolher as cores!)