У меня есть проблема, и я хочу знать, может ли макрос решить ее:
Я хотел бы макрос, который может пройти через документ Microsoft Word, найти каждое вхождение текстовой строки, а затем выделить строку и создать пузырь комментария (тот, который вы получаете, используя "отслеживать изменения"), который содержит вторую текстовую строку (например, "Это кажется неправильным").
Могут ли макросы вставлять комментарии в таком виде?
Просто закодировал это (в Word 2010, хотя не вижу ничего, что могло бы помешать его работе на более старых версиях):
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
Это работает, хотя, очевидно, нужно немного привести в порядок :) Вы можете создать объект Comment (и указать такие вещи, как Author, Initals ... хотя нельзя выбирать цвета!)