use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set kList to getEveryTextFromCurrentKeynoteSlide() of me
set tRes to retDelimedText(kList, return) of me

on getEveryTextFromCurrentKeynoteSlide()
　　tell application "Keynote"
　　　　activate
　　　　
　　　　set dCount to count every document
　　　　if dCount = 0 then
　　　　　　display notification "There is no Keynote document"
　　　　　　return {}
　　　　end if
　　　　
　　　　tell front document
　　　　　　set sCount to count every slide
　　　　end tell
　　　　if sCount = 0 then
　　　　　　display notification "There is no Slide in Keynote document"
　　　　　　return {}
　　　　end if
　　　　
　　end tell
　　
　　–Copy
　　tell application "System Events"
　　　　keystroke "c" using {command down}
　　end tell
　　
　　
　　tell application "Keynote"
　　　　activate
　　　　set nDoc to make new document
　　　　tell nDoc
　　　　　　set aMaster to master slide "空白"
　　　　　　–set aMaster to master slide "Blank"
　　　　　　
　　　　　　tell current slide
　　　　　　　　set base slide to aMaster
　　　　　　end tell
　　　　end tell
　　　　
　　end tell
　　
　　–Paste
　　tell application "System Events"
　　　　keystroke "v" using {command down}
　　end tell
　　
　　delay 0.1 –Important!!
　　
　　set tOut to {}
　　tell application "Keynote"
　　　　tell front document
　　　　　　tell current slide
　　　　　　　　set tList to every iWork item
　　　　　　　　
　　　　　　　　repeat with i in tList
　　　　　　　　　　set aTmpStr to object text of i
　　　　　　　　　　set the end of tOut to aTmpStr
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　　　
　　　　–Dispose document
　　　　tell front document
　　　　　　close without saving
　　　　end tell
　　end tell
　　
　　return tOut
end getEveryTextFromCurrentKeynoteSlide

on retDelimedText(aList, aDelim)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retDelimedText