☰

Microsoft Word にコメント バブルを挿入するマクロはありますか?

tag-icon • tag-icon microsoft-word visual-basic
Microsoft Word にコメント バブルを挿入するマクロはありますか?

問題があり、マクロで解決できるかどうか知りたいです。

Microsoft Word 文書を調べて、テキスト文字列のすべての出現箇所を検索し、その文字列を強調表示して、2 番目のテキスト文字列 (例: 「これは間違っているようです。」) を含むコメント バブル (「変更の追跡」を使用した場合に表示される種類) を作成できるマクロが必要です。

マクロはそのような方法でコメントバブルを挿入できますか?

答え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 オブジェクトを作成できます (作成者、イニシャルなどを指定できますが、色は選択できません)。

関連情報