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

WordVBA 校閲者の名前を一括変更、一括統一-アイキャッチ 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 校閲担当」に統一します。

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


 
 

この記事がお役に立ちますと幸いです🍀
 

【ワードマクロ】文字色を一括で変更:使用例5選
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説