【Word VBA】個別のコメントの挿入者名を変更するWordマクロ

以前の記事「【コード】コメントの挿入者名を変更する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

トップへ戻る