先日のサン・フレア アカデミーさんでのセミナー（【開催報告】Wordマクロで作業スピードアップ』セミナー
）にて、コメントを一括で書き出して表にするマクロ（ページ番号とともにWordのコメントを書き出すマクロ
）を紹介いたしました。
そのときにいただいたマクロのアイディアです。
その方は、コメントを書き出すことは非常にうれしいが、実際に納品するときにはコメントをすべて削除したいとのことでした。
つまり、お客様への説明としてコメントをつけるわけではなく、自分のメモとしてコメントを利用したいとのこと。
なるほど。そういうニーズもありますよね。
そのようなご要望からつくったのが今回のマクロです。
▼このマクロでできること
現在カーソルが置かれている文書のコメントをすべて削除します。
→Wordの基本機能からも実行可能です。 コメントをすべて削除する機能（Word）
▼マクロの解説
典型的なFor Each... Next ステートメントを使ったプログラムです。
現在文書中のコメントひとつひとつに対して、削除をします。
このステートメントを使うと、すべてのコメントをオブジェクトにして処理をすることができますね。
▼マクロ
Sub コメントをすべて削除する()
Dim myComment As Comment
For Each myComment In ActiveDocument.Comments
myComment.Delete
Next
End Sub
▼関連記事
【開催報告】Wordマクロで作業スピードアップ』セミナー
コメントをすべて削除する機能（Word）
Wordの基本機能を使う！！
Wordマクロで作業スピードアップ』セミナー
『Wordマクロで作業スピードアップ』セミナーの目次
マクロコードの登録方法
ツールバーのボタン登録