Macro para inserir balões de comentários no Microsoft Word?

Question

Estou com um problema e quero saber se uma macro pode resolver:

Eu gostaria de uma macro que pudesse percorrer um documento do Microsoft Word, encontrar todas as ocorrências de uma sequência de texto e, em seguida, realçar a sequência e criar um balão de comentários (do tipo que você obtém usando "controlar alterações") que contenha uma segunda sequência de texto (por exemplo, "Isso parece errado.").

As macros podem inserir balões de comentários dessa maneira?

Answer 1

Acabei de codificar isso (no Word 2010, embora não consiga ver nada que impeça o funcionamento 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, embora obviamente precise ser um pouco arrumado :) Você pode criar um objeto Comment (e especificar coisas como Autor, Iniciais... mas não é possível escolher as cores!)