WordVBA 校閲者の名前を一括変更、一括統一：自動化で時短

ワードマクロで、校閲者の名前を変更・統一するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください😉

校閲者の名前を一括変更
校閲者の名前を一括統一

校閲者の名前を一括変更

以下のWordVBAを実行すると、変更履歴の校閲者名をまとめて変更します。


Sub 校閲者の名称を変更()

  Dim TargetCom As Comment
 
  For Each TargetCom In ActiveDocument.Comments
  
    Select Case TargetCom.Author
    
        Case "kirinote"
            TargetCom.Author = "kirinote 株式会社"
    
        Case "member"
            TargetCom.Author = "A社 ご担当者"
            
        Case "tanaka"
            TargetCom.Author = "B社 営業"
    
    End Select

  Next
 
End Sub

校閲者の名前を一括変更しました。
複数ページの一括処理が可能です。

（変更前）→（変更後）
・kirinote　→　kirinote 株式会社
・member　→　A社ご担当者
・tanaka　→　B社営業

校閲者の名前を一括統一

以下のWordVBAを実行すると、変更履歴の校閲者名をすべて統一します。


Sub 変更履歴のユーザー名を同じにする()

  Dim TargetCom As Comment
 
  For Each TargetCom In ActiveDocument.Comments
    
    '変更後の校閲者の名前を設定
    TargetCom.Author = "株式会社kirinote 校閲担当"
    
  Next
 
End Sub

すべての校閲者名を「株式会社kirinote 校閲担当」に統一します。

非表示になっているコメントがある場合も統一されます。
複数ページの一括処理が可能です。