Microsoft Word에 설명 풍선을 삽입하는 매크로?

Microsoft Word에 설명 풍선을 삽입하는 매크로?

문제가 있는데 매크로로 문제를 해결할 수 있는지 알고 싶습니다.

Microsoft Word 문서를 검토하고, 텍스트 문자열이 있는 모든 항목을 찾은 다음 해당 문자열을 강조 표시하고 두 번째 텍스트 문자열이 포함된 설명 풍선("변경 사항 추적"을 사용하여 얻을 수 있는 종류)을 생성할 수 있는 매크로를 원합니다. (예: "이건 잘못된 것 같습니다.")

매크로가 그런 방식으로 댓글 풍선을 삽입할 수 있나요?

답변1

다음과 같이 코딩했습니다(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와 같은 항목을 지정할 수 있지만...색상은 선택할 수 없습니다!)

관련 정보