function AcceptAllChanges(){
  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
    //Accept all revisions displayed in the active view
  ActiveDocument.AcceptAllRevisionsShown()
}