Apologies for the cross-posting.

I managed to get a solution to the problem. The following works:

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