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

property xGap : 8 –X軸方向のオブジェクトの隙間座標値

tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　if aSel = {} then return
　　　　set fClass to class of first item of aSel
　　　　if fClass = slide then return –スライド上のオブジェクトではなく、スライドが選択されていた場合には処理しない
　　　　
　　　　set objList to {}
　　　　set posList to {}
　　　　set aCount to 1
　　　　
　　　　repeat with i in aSel
　　　　　　set j to contents of i
　　　　　　set tmpClass to class of j
　　　　　　
　　　　　　–条件に合うオブジェクトのみ処理対象に
　　　　　　if tmpClass is in {text item, shape} then
　　　　　　　　set the end of objList to j
　　　　　　　　set the end of posList to ((position of j) & (width of j) & aCount)
　　　　　　　　
　　　　　　　　set aCount to aCount + 1
　　　　　　end if
　　　　end repeat
　　　　
　　　　
　　　　set newPosList to shellSortListAscending(posList, 2) of sortLib –Y軸値をもとにソート
　　　　set guideObj to first item of newPosList –Y軸座標が一番少ない（上）のものをガイドオブジェクトとしてみなす
　　　　
　　　　set newPosList to shellSortListAscending(rest of newPosList, 1) of sortLib –ガイドオブジェクト以外のオブジェクト座標値をX軸値でソート
　　　　set guideWidth to contents of item 3 of guideObj
　　　　
　　　　set xStartPos to item 1 of item 1 of newPosList
　　　　set yPos to item 2 of item 1 of newPosList
　　　　set itemsCount to length of newPosList
　　　　
　　　　set itemWidth to (guideWidth – (xGap * (itemsCount – 1))) / itemsCount
　　　　
　　　　–下側オブジェクトの位置と幅修正処理
　　　　copy xStartPos to x
　　　　repeat with i from 1 to itemsCount
　　　　　　
　　　　　　set y to item 2 of (item i of newPosList)
　　　　　　
　　　　　　set targObj to item (item 4 of (item i of newPosList)) of objList
　　　　　　
　　　　　　tell targObj
　　　　　　　　set position of it to {x, y}
　　　　　　　　set width of it to itemWidth
　　　　　　end tell
　　　　　　
　　　　　　set x to x + itemWidth + (xGap)
　　　　　　
　　　　end repeat
　　end tell
end tell

–Vanilla AppleScriptで書いた2D ListのSorting Lib
script sortLib
　　–シェルソートで入れ子のリストを昇順ソート
　　on shellSortListAscending(aSortList, aKeyItem)
　　　　script oBj
　　　　　　property list : aSortList
　　　　end script
　　　　set len to count oBj’s list’s items
　　　　set gap to 1
　　　　repeat while (gap ≤ len)
　　　　　　set gap to ((gap * 3) + 1)
　　　　end repeat
　　　　repeat while (gap > 0)
　　　　　　set gap to (gap div 3)
　　　　　　if (gap < len) then
　　　　　　　　repeat with i from gap to (len – 1)
　　　　　　　　　　set temp to oBj’s list’s item (i + 1)
　　　　　　　　　　set j to i
　　　　　　　　　　repeat while ((j ≥ gap) and (contents of item aKeyItem of (oBj’s list’s item (j – gap + 1)) > item aKeyItem of temp))
　　　　　　　　　　　　set oBj’s list’s item (j + 1) to oBj’s list’s item (j – gap + 1)
　　　　　　　　　　　　set j to j – gap
　　　　　　　　　　end repeat
　　　　　　　　　　set oBj’s list’s item (j + 1) to temp
　　　　　　　　end repeat
　　　　　　end if
　　　　end repeat
　　　　return oBj’s list
　　end shellSortListAscending
　　
　　
　　–シェルソートで入れ子のリストを降順ソート
　　on shellSortListDescending(aSortList, aKeyItem)
　　　　script oBj
　　　　　　property list : aSortList
　　　　end script
　　　　set len to count oBj’s list’s items
　　　　set gap to 1
　　　　repeat while (gap ≤ len)
　　　　　　set gap to ((gap * 3) + 1)
　　　　end repeat
　　　　repeat while (gap > 0)
　　　　　　set gap to (gap div 3)
　　　　　　if (gap < len) then
　　　　　　　　repeat with i from gap to (len – 1)
　　　　　　　　　　set temp to oBj’s list’s item (i + 1)
　　　　　　　　　　set j to i
　　　　　　　　　　repeat while ((j ≥ gap) and (contents of item aKeyItem of (oBj’s list’s item (j – gap + 1)) < item aKeyItem of temp))
　　　　　　　　　　　　set oBj’s list’s item (j + 1) to oBj’s list’s item (j – gap + 1)
　　　　　　　　　　　　set j to j – gap
　　　　　　　　　　end repeat
　　　　　　　　　　set oBj’s list’s item (j + 1) to temp
　　　　　　　　end repeat
　　　　　　end if
　　　　end repeat
　　　　return oBj’s list
　　end shellSortListDescending
end script

use AppleScript
use framework "Foundation"
use scripting additions

property headerChar : "◽️" –1階層目のタイトルの行頭に入れる
property indentChar : tab –2階層目のタイトルの行頭に入れる

tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　set aFirst to class of first item of aSel
　　　　if aFirst is not equal to slide then
　　　　　　display dialog "スライド単位で選択されていません（スライド内のオブジェクトが選ばれている）" buttons {"OK"} default button 1
　　　　　　return
　　　　end if
　　　　
　　　　–スライドの逆順選択が発生していた場合には、listを逆順に入れ替えて正順（開始ページ→終了ページ）に修正　　
　　　　set fItem to slide number of first item of aSel
　　　　set lItem to slide number of last item of aSel
　　　　if fItem > lItem then set aSel to reverse of aSel
　　　　
　　　　–スライド番号を選択部分から取り出す
　　　　set pNumList to {}
　　　　repeat with i in aSel
　　　　　　set the end of pNumList to (slide number of i)
　　　　end repeat
　　　　
　　　　–選択中の最終スライドの次のスライドは説明部分とみなし、説明部分が続く（同じベースレイアウト）ブロックを検出
　　　　set totalCount to count every slide
　　　　set aMasterSlide to base layout of slide ((last item of pNumList) + 1)
　　　　set hitF to false
　　　　
　　　　repeat with i from (last item of pNumList) + 2 to totalCount
　　　　　　set tmpBase to base layout of slide i
　　　　　　if aMasterSlide is not equal to tmpBase then
　　　　　　　　set hitF to true
　　　　　　　　exit repeat
　　　　　　end if
　　　　end repeat
　　　　
　　　　if hitF = false then error "Page selection Error"
　　　　
　　　　—末尾の情報を補う。そのため、本Scriptではスライド末尾までの選択が行えないが、実用上問題がないので無視している
　　　　copy i to lastThreadShould
　　　　copy pNumList to pNumList2
　　　　set the end of pNumList to i
　　　　
　　　　
　　　　–メインループ
　　　　set outList to {}
　　　　set aCount to 1
　　　　
　　　　–1階層目のタイトル収集ループ
　　　　repeat with i in (pNumList2)
　　　　　　
　　　　　　tell slide i
　　　　　　　　try
　　　　　　　　　　set tmpTitle1 to object text of default title item
　　　　　　　　on error
　　　　　　　　　　set tmpTitle1 to "" –タイトルが存在しないスライドなどの場合
　　　　　　　　end try
　　　　　　end tell
　　　　　　
　　　　　　–オブジェクト内の強制改行文字を削除
　　　　　　set tmpTitle13 to repChar(tmpTitle1, string id 8232, "") of me
　　　　　　
　　　　　　–出力用のリストに追加
　　　　　　set the end of outList to (return & headerChar & tmpTitle13)
　　　　　　
　　　　　　–2階層目のタイトル収集ループ
　　　　　　repeat with ii from (i + 1) to ((item (aCount + 1) of pNumList) – 1)
　　　　　　　　if ii ≥ (lastThreadShould) then exit repeat
　　　　　　　　
　　　　　　　　tell slide ii
　　　　　　　　　　try
　　　　　　　　　　　　set tmpTitle2 to object text of default title item
　　　　　　　　　　on error
　　　　　　　　　　　　set tmpTitle2 to "" –タイトルが存在しないスライドなどの場合
　　　　　　　　　　end try
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　–オブジェクト内の強制改行文字を削除
　　　　　　　　set tmpTitle22 to repChar(tmpTitle2, string id 8232, "") of me
　　　　　　　　
　　　　　　　　–出力用のリストに追加
　　　　　　　　set the end of outList to (indentChar & tmpTitle22)
　　　　　　end repeat
　　　　　　
　　　　　　set aCount to aCount + 1
　　　　　　
　　　　end repeat
　　　　
　　　　–クリップボードに結果文字列を設定
　　　　set outStr to retListedText(outList, return) of me
　　　　set the clipboard to outStr
　　end tell
end tell

–1D Listにデリミタ文字を入れつつテキスト化
on retListedText(aList, aSeparator)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aSeparator
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retListedText

–文字置換ルーチン
on repChar(origText as string, targStr as string, repStr as string)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar