function HideDeleteComments(){
    let rev
    let rng = ActiveWindow.View
    //Display all comments and revisions
    rng.ShowRevisionsAndComments = true
    rng.ShowFormatChanges = true
    rng.ShowInsertionsAndDeletions = true
									
    for(let i = 1; i <= rng.Reviewers.Count; i++){
      rng.Reviewers.Item(i).Visible = true
    }
									
    //Hide only the revisions/comments made by the
    //reviewer named "Jeff Smith"
    rng.Reviewers.Item("Jeff Smith").Visible = false
									
    //Delete all comments displayed in the active view
    ActiveDocument.DeleteAllCommentsShown()
}