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

先日の日本翻訳者協会(JAT)のセミナー後に問い合わせをいただきました。コメントに表示される名前を変更するマクロです。

このマクロでできること

文書に挿入されたコメントに記載されている名前を変更します。

(実行前)

(実行後)

コメントの挿入者が「みんなのワードマクロ」に変わりました。

マクロの解説

For Each … Next ステートメントを用いて、文書中のコメントオブジェクトすべてに対して処理をします。

Authorプロパティ が作成者名で、Initialプロパティ が頭文字です。

コメントを挿入すると、Wordのユーザー設定で定義されているユーザー名と頭文字がコメントの作成者として設定されます。上記のプロパティは書き換えが可能なので、今回のようにコメント1つ1つの値を変更します。

If ステートメントを使えば、特定の名前のコメントだけを別の名前に書き換えることもできます。

マクロ


Sub コメント挿入者名を変更するマクロ()

 Dim myComment As Comment

 For Each myComment In ActiveDocument.Range.Comments
  With myComment
   .Author = "みんなのワードマクロ"
   .Initial = "MWM"
  End With
  DoEvents
 Next
 
 MsgBox "変更が終わりました。", vbInformation

End Sub

トップへ戻る