Makro, aby wstawić bąbelki komentarza w programie Microsoft Word?

Mam problem i chcę wiedzieć, czy makro może go rozwiązać:

Chciałbym, aby makro, które może przechodzić przez dokument Microsoft Word, znajdowało każde wystąpienie ciągu tekstowego, a następnie podświetlało ciąg i tworzyło dymek komentarza (rodzaj, który otrzymujesz za pomocą „zmian śledzenia”), który zawiera drugi ciąg tekstowy (np. „Wydaje się to niewłaściwe”).

Czy makra mogą wstawiać pęcherzyki komentarzy w ten sposób?

Właśnie zakodowałem to (na Word 2010, ale nie widzę niczego, co powinno uniemożliwić działanie na starszych wersjach):

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

Który działa, chociaż oczywiście wymaga trochę sprzątania :) Możesz utworzyć obiekt komentarza (i określić rzeczy takie jak Autor, Initale ... nie możesz jednak wybrać kolorów!)