Applescript to move to next slide in normal view in PowerPoint

Am trying to write an Applescript which will move to the next slide when editing slides in Normal view in Powerpoint. Have searched in vain, and cannot get ‘go to next slide’ to work. Anybody able to help?

only works in slide show view. The following will work in normal view. It assumes that one slide is selected in normal view.


tell application "Microsoft PowerPoint"
	activate
	set theView to view of document window 1
	my goToNextSlide(theView)
end tell

on goToNextSlide(theView)
	tell application "Microsoft PowerPoint"
		activate
		set curSlide to slide index of slide range of selection of document window 1
		go to slide theView number (curSlide + 1)
	end tell
end goToNextSlide

Thank you so much. I would never have arrived at that without your help. Really appreciated you spending the time to respond.