以前の記事「【コード】コメントの挿入者名を変更するWordマクロ」にて、文書中の全てのコメントの挿入者名（作者名）を変更するマクロを紹介しました。
今回の記事では、個別にコメントの挿入者名を変更するマクロを紹介します。
部分的に変更する必要があるときにご利用ください。
ショートカットキーでこのマクロを実行すれば、変更の対象箇所を見つけたらすぐに修正できて便利だと思います。
＜目次＞
このマクロでできること
カーソルが置かれているコメントの挿入者名（作者名）とイニシャルを変更します。
（実行前）
（実行後）
マクロの解説
カーソル位置のコメントの指定は以下のようにしています（7行目）。
Selection.Comments(1)
Commentコレクションの中の1番目を指定します。
カーソル位置にコメントがない場合は以下のように判定しています（3行目）。
Selection.Comments.Count = 0
今回のマクロとは関係ありませんが、カーソル位置の段落でも同じ考え方で以下のように指定できますね。（参考記事：【コード】カーソル位置と同じアウトラインレベルの段落にカーソルを移動するWordマクロ）
Selection.Paragraphs(1)
マクロ
Sub 選択したコメントの挿入者名を変更するマクロ() If Selection.Comments.Count = 0 Then MsgBox "コメントを選択してください。" Exit Sub Else With Selection.Comments(1) .Author = "みんなのワードマクロ" .Initial = "MWM" End With End If End Sub