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

2017年12月20日

, , ,

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

-コード
-, , ,