【ワードマクロ】特定の校閲者のコメントのみ表示:コピペで使えるコード

ワードマクロ:特定校閲者のコメントのみ表示アイキャッチ ワードマクロで効率化する

ワードマクロで、特定の校閲者のコメントのみ表示するVBAコードをご紹介します。

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

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

特定の校閲者のコメントを表示

以下のWordVBAを実行すると、変更履歴にて特定ユーザーのコメントのみを表示します。

Sub 特定のコメントを表示()

    With ActiveWindow

        'すべてのコメントを表示
        .ToggleShowAllReviewers
        
        '非表示にするコメントを設定
        .View.RevisionsFilter.Reviewers("member").Visible = False
        .View.RevisionsFilter.Reviewers("tanaka").Visible = False
        
        '表示にするコメントを設定
        .View.RevisionsFilter.Reviewers("kirinote").Visible = True
    
    End With

End Sub

 

マクロ実行後

特定の校閲者「kirinote」のコメントだけ表示しました。

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

※コメントは削除されません。非表示にしている状態です。


 
 

特定の校閲者のコメントを表示(ウィンドウ枠に表示)

以下のWordVBAを実行すると、変更履歴の特定ユーザーのコメントのみを表示します。

Sub 特定のコメントを表示()

    ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneComments
    ActiveDocument.Comments.ShowBy = "kirinote"

End Sub

 

マクロ実行後

ウィンドウ枠に、校閲者「kirinote」のコメントのみ表示しました。

※コメントは削除されません。非表示にしている状態です。


 
 
 

すべてのコメントを再表示したいとき

 

Sub コメントを再表示()

    ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneComments
    ActiveDocument.Comments.ShowBy = "すべての校閲者"

End Sub

 

[ActiveDocument.Comments.ShowBy] にて、”すべての校閲者” を設定すると、
すべてのコメントを再表示することができます。


 

【ワードマクロ】コメントを非表示にする:1行コードでデキる
...
【ワードマクロ】特定の校閲者のコメントを削除:自動化が最強かも
...