【Word】コメントに表示される名前を変更する方法

ワードを開いて、左上の[ファイル]をクリックしてください。

[ファイル]をクリックするとワードのホーム画面が表示されます。

左側のメニューにある[オプション]をクリックしてください。

ワードのウィンドウを縮小表示していると[オプション]が表示されない可能性があります。[オプション]が見当たらない場合はワードのウィンドウを最大化してみてください。

[オプション]をクリックすると「Wordのオプション」と書かれたウィンドウが表示されます。

「Wordのオプション」内にある[ユーザー名]と[頭文字]を変更してください。

コメントに表示される名前は「ユーザー名」を参照しているので、最低限必要なのは「ユーザー名」の変更です。
他の情報と齟齬があると気持ち悪いかもしれないのでここでは「頭文字」の変更も推奨しています。

次に、[Officeへのサインイン状態にかかわらず、常にこれらの設定を使用する(A)]にチェックを入れてください。

最後に右下にある[OK]をクリックしてください。

[ユーザー名]と[頭文字]を変更したら新しいコメントを追加して、コメントに表示される名前が変わっていることを確認してください。

ワードファイル内に既に入力されているコメントの名前を変更することはできません。
コメント欄に表示される名前を変更した後に追加したコメントのみが新しい名前になります。

まずはコメント者名を変更したいWordファイルを開いてください。

コメントを表示させておいたほうがわかりやすいです。

コメント者名を変更したいWordファイルをアクティブウィンドウにしている状態で、キーボードのAlt+F11を押してください。

アクティブウィンドウとは画面の一番手前に表示されていて、操作可能なウィンドウを指します。
反対に、一番手前以外に表示されていて、操作できないウィンドウの事を非アクティブウィンドウと呼びます。

キーボードのAlt+F11を押すと「Microsoft Visual Basic for Application」と書かれたウィンドウが立ち上がります。

その画面の左側にある[This Document]をクリックしてください。

[This Document]をクリックすると、右側が白い画面になるので、その中に以下の文字列を貼り付けてください。

Sub ChangeCommentAuthorName()
    Dim c As Comment
    Dim oldAuthor As String
    Dim newAuthor As String
    
    ' 置換したい現在の名前と新しい名前を入力
    oldAuthor = InputBox("置換したい現在の名前を入力してください")
    newAuthor = InputBox("新しい名前を入力してください")
    
    ' コメントの著者名を変更
    For Each c In ActiveDocument.Comments
        If c.Author = oldAuthor Then
            c.Author = newAuthor
        End If
    Next c
    
    MsgBox "コメントの著者名を更新しました"
End Sub

コメント者名を置換するためのマクロを貼り付けたら、上部にある[▶（ユーザーフォームの実行）]をクリックしてください。

[▶（ユーザーフォームの実行）]をクリックすると、「置換したい現在の名前を入力してください」と書かれたウィンドウが立ち上がります。

その中に置換したい現在の名前を入力し、[OK]をクリックしてください。

このWordファイル全てのページのコメント者名に対して置換がかかります。

[OK]をクリックすると「新しい名前を入力してください」と表示されます。

置換後の新しい名前を入力し、[OK]をクリックしてください。

[OK]をクリックすると、「コメント著者名を更新しました」と表示されるので[OK]をクリックしてください。

[OK]をクリックすると、コメント者名が変更されます。