tell application "Keynote"
　　tell front document
　　　　tell (current slide)
　　　　　　set tList to properties of text items
　　　　end tell
　　　　
　　　　set posList to {}
　　　　repeat with i in tList
　　　　　　set tmpPos to position of i
　　　　　　set tmpText to object text of i
　　　　　　set the end of posList to (tmpPos & tmpText)
　　　　end repeat
　　　　
　　end tell
end tell

–Sort 2D List
load framework
set sortIndexes to {1} –Key Item id: begin from 0
set sortOrders to {true} –ascending = true
set sortTypes to {"compare:"}
set resList to (current application’s SMSForder’s subarraysIn:(posList) sortedByIndexes:sortIndexes ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list

set allDat to ""

repeat with i in resList
　　set a to contents of last item of i
　　set allDat to allDat & return & a
end repeat

set the clipboard to allDat