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

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

ワードマクロで、特定の校閲者のコメントのみ表示する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] にて、”すべての校閲者” を設定すると、
すべてのコメントを再表示することができます。


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

【ワードマクロ】校閲者の表示処理を自動化：超便利6選
...
kirinote.com
2020.12.20