Applescript to copy a Keynote document's presenter notes to the clipboard

keynote_copy_presenter_notes.scpt

-- Copyright 2023 Noe Casas.
-- License: CC-BY-SA 2.5 (because it's derived from a 2014 SO question, see https://stackoverflow.com/help/licensing)
-- Copies the presenter notes from a Keynote presentation into the clipboard,
-- adding the slide index before each slide's presenter note's.
-- Derived from https://apple.stackexchange.com/a/142533/181485

global presenterNotes
tell application "Keynote"
	activate
	tell front document
		set presenterNotes to ""
		set num to 0
		repeat with aSlide in every slide
			set num to num + 1
			set slideNotes to presenter notes of aSlide as text
			set presenterNotes to presenterNotes & "Slide: " & num & linefeed & linefeed
			set presenterNotes to presenterNotes & slideNotes & linefeed & linefeed
		end repeat
		set the clipboard to presenterNotes
	end tell
end tell