【ワードマクロ】校閲者のコメントの色を変更：自動化が最強かも

ワードマクロで、校閲者のコメントの色を変更するVBAコードをご紹介します。

複数ページの一括処理が可能です。

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

1 校閲者のコメントの色を変更
2 校閲者のコメントの色を変更（校閲者別）

校閲者のコメントの色を変更

以下のマクロを実行すると、変更履歴の校閲者のコメントの色を変更します。


Sub 全ての校閲コメントの文字色を変更()

  Dim TargetCom As Comment
 
  For Each TargetCom In ActiveDocument.Comments
    
    '文字色を変更
    TargetCom.Range.Font.ColorIndex = wdBlue
    
  Next
 
End Sub

マクロ実行後

ページ内にある校閲コメントの文字色を、黒→青に変更しました。

複数ページの処理が一括で可能です。

校閲者のコメントの色を変更（校閲者別）

以下のマクロを実行すると、校閲者ごとに文字色を設定します。


Sub 校閲者別にコメントの文字色を変更()

  Dim TargetCom As Comment
 
  For Each TargetCom In ActiveDocument.Comments
  
    Select Case TargetCom.Author
    
        Case "kirinote"
            TargetCom.Range.Font.ColorIndex = wdGreen
    
        Case "member"
            TargetCom.Range.Font.ColorIndex = wdBlue
            
        Case "tanaka"
            TargetCom.Range.Font.ColorIndex = wdRed
    
    End Select

  Next
 
End Sub