¿Macro para insertar burbujas de comentarios en Microsoft Word?

Question

Tengo un problema y quiero saber si una macro lo puede solucionar:

Me gustaría una macro que pueda revisar un documento de Microsoft Word, encontrar cada aparición de una cadena de texto y luego resaltar la cadena y crear una burbuja de comentarios (del tipo que se obtiene al usar "seguimiento de cambios") que contenga una segunda cadena de texto. (por ejemplo, "Esto parece incorrecto").

¿Pueden las macros insertar burbujas de comentarios de esa manera?

Answer 1

Acabo de codificar esto (en Word 2010, aunque no veo nada que impida que funcione en versiones anteriores):

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

Lo cual funciona, aunque obviamente necesita ser arreglado un poco :) Podrías crear un objeto Comentario (y especificar cosas como Autor, Iniciales... ¡aunque no puedes elegir los colores!)