function RejectAllChanges() {
    let rev = ActiveWindow.View.Reviewers
    let view = ActiveWindow.View
    //Show all revisions in the document
    view.ShowRevisionsAndComments = true
    view.ShowFormatChanges = true
    view.ShowInsertionsAndDeletions = true

   for(let i = 1; i <= rev.Count; i++) {
        rev.Item(i).Visible = true
    }

    //Hide revisions made by "Jeff Smith"
    rev.Item("Jeff Smith").Visible = false

    //Reject all revisions displayed in the active view
    ActiveDocument.RejectAllRevisionsShown()
}