Delete all Keynote Presenter Notes

I am trying to delete all presenter notes in a keynote presentation.

I am able to change the properties like this:

tell application "Keynote"
	tell document 1
		set theSlides to slides
		repeat with s in the slides
			tell presenter notes of s
				set font to "Helvetica"
				set size to 12
			end tell
		end repeat
	end tell
end tell

But I am not able to delete all presenter notes.

Thanks for your help.

Hi. Welcome to MacScripter.

Looking at Keynotes’s scripting dictionary, it seems that presenter notes is a slide property whose value is text. Does it work to set each slide’s presenter notes to “”?

Perfect. Thank you. Worked withe this script:

tell application “Keynote”
if not (exists document 1) then error number -128
tell the front document
repeat with i from 1 to the count of slides
tell slide i
if skipped is false then
set the presenter notes to “”
end if
end tell
end repeat
end tell
end tell