【Word VBA/マクロ】コメントユーザー名の変更

サンプルコードでできること

コメントの特定の作成者の名前を変更します。

Sub コメントユーザー名変更()
'コメントのユーザー名を変更します。
    Dim cmt As Comment, strInitial As String
    Dim MaeName As String, AtoName As String
    
    MaeName = "たなか" '変更前の名前
    AtoName = "Tanaka" '変更後の名前
    strInitial = "T" '変更後のイニシャル
    
    For Each cmt In ActiveDocument.Range.Comments
        With cmt
            .Author = AtoName
            .Initial = strInitial
        End With
    Next
End Sub

コードの説明

For Eachを用いて、特定の作成者を1つずつ変更します。
Authorプロパティは、オブジェクトブラウザの非表示メンバーのため、薄い文字で表示されます。
（「非表示のメンバーを表示」をオンで表示できます。）