表示中のKeynoteの現在のスライド上のテキストを上から順に連結してクリップボードに転送

現在オープン中の最前面のKeynote書類の表示中のスライド（ページ）上にあるテキストオブジェクト内のテキストを、Y座標値をもとに（上から下に）並べ替えてクリップボードに転送するAppleScriptです。

Keynote上で選択した複数のテキストオブジェクトの内容をそのままテキストエディタにコピー＆ペーストで持っていけないので即席で書いたものです。

AppleScript名：表示中のKeynoteの現在のスライド上のテキストを上から順に連結してクリップボードに転送

— Created 2018-04-22 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

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