function AddNewComment () {
ActivePresentation.Slides.Item(1).Comments.Add(1, 1, "John Doe", "jd", "Please check this spelling again before the next draft.")
}