use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
–use iwoSortLib : script "iWorkObjSortLib"

tell application "Keynote"
　　tell front document
　　　　–章扉の上にあるテキストアイテム（各記事タイトルが入っているものと想定、複数可能）を取得
　　　　set aSelList to selection
　　　　set bSelList to {}
　　　　set sCount to count every slide
　　　　
　　　　
　　　　–画面上で選択しておいたオブジェクトのうち、text itemのみを抽出（念のため）
　　　　repeat with i in aSelList
　　　　　　set j to contents of i
　　　　　　set aClass to class of j
　　　　　　if aClass is text item then
　　　　　　　　set the end of bSelList to j
　　　　　　end if
　　　　end repeat
　　　　
　　　　set cSelList to sortIWorkObjectsByPositionAndRetObjRef(bSelList, {"positionX", "positionY"}, {true, true}) of iWorkObjSort
　　　　
　　　　
　　　　–章トビラ上のテキストアイテム（複数可）をループしつつ、中のテキストを行ごとに分解してリスト化
　　　　–（連結前にあらかじめX座標をもとにソートしておいたほうがいい？？）
　　　　set textList to {}
　　　　repeat with i in cSelList
　　　　　　set tmpCon to object text of i
　　　　　　set tmpList to paragraphs of tmpCon
　　　　　　set textList to textList & tmpList
　　　　end repeat
　　　　–return textList
　　　　
　　　　–章トビラのページの情報を取得
　　　　tell current slide
　　　　　　set curSlideNum to slide number
　　　　　　set curSlideLayout to name of base layout
　　　　end tell
　　　　
　　　　–章トビラの次のページの情報を取得（ここが必ず記事トビラであるという前提のもとに処理）
　　　　tell slide (curSlideNum + 1)
　　　　　　set nextSlideLayout to name of base layout
　　　　end tell
　　　　
　　　　set targSlideList to {}
　　　　repeat with i from (curSlideNum + 1) to sCount
　　　　　　tell slide i
　　　　　　　　set tSTheme to name of base layout
　　　　　　　　if tSTheme = curSlideLayout then
　　　　　　　　　　–章トビラを検出したら処理終了
　　　　　　　　　　exit repeat
　　　　　　　　else if tSTheme = nextSlideLayout then
　　　　　　　　　　–扉＋1ページのスライド（記事カバー）を検出したら記録
　　　　　　　　　　set the end of targSlideList to i
　　　　　　　　end if
　　　　　　end tell
　　　　end repeat
　　　　–return targSlideList
　　　　
　　　　set iCount to 1
　　　　repeat with i in targSlideList
　　　　　　try
　　　　　　　　set tmpT to contents of item iCount of textList
　　　　　　　　tell slide i
　　　　　　　　　　set object text of default title item of it to tmpT
　　　　　　　　end tell
　　　　　　　　set iCount to iCount + 1
　　　　　　on error
　　　　　　　　return
　　　　　　end try
　　　　end repeat
　　end tell
end tell

property NSFont : a reference to current application’s NSFont
property NSColor : a reference to current application’s NSColor
property NSFontAttributeName : a reference to current application’s NSFontAttributeName
property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString
property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName

script spd
　　property allList : {}
　　property aaSel : {}
end script

set (allList of spd) to {}

tell application "Keynote"
　　set aVer to version
　　if aVer < "12.0" then return
　　
　　set acceptClass to {text item, shape}
　　
　　tell front document
　　　　set (aaSel of spd) to selection –need Keynote v12.0 or later
　　　　
　　　　repeat with i in (aaSel of spd)
　　　　　　set j to contents of i
　　　　　　set aClass to class of j
　　　　　　
　　　　　　if aClass = group then
　　　　　　　　tell j
　　　　　　　　　　set gItemList to every iWork item
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　set posList to {}
　　　　　　　　set aCount to 1
　　　　　　　　
　　　　　　　　repeat with ii in gItemList
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set bClass to class of jj
　　　　　　　　　　
　　　　　　　　　　if bClass is in acceptClass then
　　　　　　　　　　　　tell jj
　　　　　　　　　　　　　　set {posX, posY} to position
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　try
　　　　　　　　　　　　　　　　set tmpStr to object text as string
　　　　　　　　　　　　　　on error
　　　　　　　　　　　　　　　　set tmpStr to ""
　　　　　　　　　　　　　　end try
　　　　　　　　　　　　end tell
　　　　　　　　　　　　
　　　　　　　　　　　　set the end of posList to {positionX:posX, positionY:posY, objID:aCount, myStr:tmpStr}
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　–座標データをもとにソート
　　　　　　　　set sortedList to sortRecListByLabel(posList, {"positionY", "positionX"}, {true, true}) of me
　　　　　　　　
　　　　　　　　–１グループ分のテキストを組み立てる
　　　　　　　　set tmpList to {}
　　　　　　　　repeat with ii in sortedList
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set aStr to myStr of jj
　　　　　　　　　　set the end of tmpList to aStr
　　　　　　　　end repeat
　　　　　　　　set the end of (allList of spd) to tmpList
　　　　　　end if
　　　　end repeat
　　end tell
end tell

return (allList of spd)
–> {{"変数名", "❺", "意外と苦労している人が多い、変数やプロパティ名の命名ルール。とくに、予約語と衝突しない名前について"}, {"条件分岐", "❼", "条件分岐はプログラムに必須。自転車でいえば、カーブで曲がれないとか、水たまりを避けられないぐらい困ります。"}, {"用語辞書", "❹", "読めないと書けない、でも、あの人もこの人も読めない用語辞書。自由自在に読めれば、自由自在に書ける！"}, {"ループ処理", "➓", "プログラムをシンプルに書くための一番大事な構文。書き方によって速度が違ったり、高度な処理を簡潔に書ける！"}, {"アプレット", "⓫", "AppleScriptをアプリケーションとして書き出す、簡易アプリケーション「アプレット」の最新動向！"}, {"間接指定", "❶", "対象としたデータだけでなく、幅広いデータに対応できるよう、プログラムに柔軟性を与える間接指定"}, {"ダイアログ表示", "❾", "簡単に行えるメッセージ表示手段。外部ライブラリの利用でさらなる高機能ダイアログを紹介。"}, {"環境整備", "❽", "macOSに標準で入っているツールを呼び出しやすくしたり設定したりする程度。全体像を掴んでレッツ環境整備。"}, {"フィルタ参照", "❻", "AppleScript独特の概念で、「膨大なデータから正規表現で絞り込む」などの他の処理系と異なる、基礎にして奥義"}, {"tellブロック", "❷", "AppleScriptの７割以上を占める、tellブロックの記述や整理方法を楽に書く秘訣のかずかず"}, {"❸", "ファイルパス", "まさに「基礎」中の「基礎」。「できて当たり前」といえるパス操作。知っているだけで差がつく基礎"}}

–リストに入れたレコードを、指定の属性ラベルの値でソート
on sortRecListByLabel(aRecList as list, aLabelStr as list, ascendF as list)
　　set aArray to current application’s NSArray’s arrayWithArray:aRecList
　　
　　set aCount to length of aLabelStr
　　set sortDescArray to current application’s NSMutableArray’s new()
　　repeat with i from 1 to aCount
　　　　set aLabel to (item i of aLabelStr)
　　　　set aKey to (item i of ascendF)
　　　　set sortDesc to (current application’s NSSortDescriptor’s alloc()’s initWithKey:aLabel ascending:aKey)
　　　　(sortDescArray’s addObject:sortDesc)
　　end repeat
　　
　　return (aArray’s sortedArrayUsingDescriptors:sortDescArray) as list
end sortRecListByLabel

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

tell application "Keynote"
　　tell front document
　　　　set aaSel to selection
　　　　set posList to {}
　　　　set aCount to 1
　　　　
　　　　repeat with i in aaSel
　　　　　　set j to contents of i
　　　　　　set mySource to object text of j
　　　　　　
　　　　　　tell j
　　　　　　　　set {posX, posY} to position
　　　　　　end tell
　　　　　　
　　　　　　set the end of posList to {positionX:posX, positionY:posY, objID:aCount, myCon:mySource}
　　　　　　
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　　　
　　end tell
end tell

set zList to sortRecListByLabel(posList, {"positionX", "positionY"}, {true, true}) of me