use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set targSize to 96.0 –取り出し対象の文字サイズ
set outList to ""

tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　repeat with i in aSel
　　　　　　set j to contents of i
　　　　　　
　　　　　　tell j
　　　　　　　　set tList to every text item
　　　　　　　　
　　　　　　　　set dItem to default title item
　　　　　　　　set dProp to properties of dItem
　　　　　　　　set dText to object text of dItem –テキスト
　　　　　　　　
　　　　　　　　set dPos to position of default title item
　　　　　　　　set dHeight to height of default title item
　　　　　　　　set dWidth to width of default title item
　　　　　　　　set dList to dPos & {dWidth, dHeight}
　　　　　　　　
　　　　　　　　–座標領域が重なっているオブジェクトを抽出
　　　　　　　　set colList to {}
　　　　　　　　repeat with ii in tList
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set tPos to position of jj
　　　　　　　　　　set tHeight to height of jj
　　　　　　　　　　set tWidth to width of jj
　　　　　　　　　　set ttList to tPos & {tHeight, tHeight}
　　　　　　　　　　set tProp to properties of jj
　　　　　　　　　　
　　　　　　　　　　if dProp is not equal to tProp then
　　　　　　　　　　　　set gCol to getCollision(dList, ttList) of me
　　　　　　　　　　　　if gCol = true then
　　　　　　　　　　　　　　set the end of colList to jj
　　　　　　　　　　　　end if
　　　　　　　　　　end if
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　–指定フォントサイズのテキストアイテムを抽出
　　　　　　　　set sizeList to {}
　　　　　　　　repeat with ii in tList
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set tSize to size of object text of jj
　　　　　　　　　　if tSize = targSize then
　　　　　　　　　　　　set the end of sizeList to jj
　　　　　　　　　　end if
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　–出力用テキストの整形
　　　　　　　　set t1 to cleanUpKeynoteTextObj(dText) of me
　　　　　　　　set t2 to cleanUpKeynoteTextObj(object text of item 1 of sizeList) of me
　　　　　　　　set t3 to cleanUpKeynoteTextObj(object text of item 1 of colList) of me
　　　　　　　　
　　　　　　　　set outStr to t1 & tab & t3 & return & t2
　　　　　　　　set outList to outList & return & outStr
　　　　　　　　
　　　　　　end tell
　　　　end repeat
　　end tell
end tell

return outList

–iWorkのtext itemのオブジェクト内改行を削除
on cleanUpKeynoteTextObj(tObj)
　　set tObj to repChar(tObj, string id 10, "") of me –LF
　　set tObj to repChar(tObj, string id 13, "") of me –CR
　　set tObj to repChar(tObj, string id 8232, "") of me –強制改行？
　　return tObj
end cleanUpKeynoteTextObj

on getCollision(aList, bList)
　　copy aList to {aXn, aYn, aWn, aHn}
　　copy bList to {bXn, bYn, bWn, bHn}
　　
　　set a4Rect to current application’s NSMakeRect(aXn, aYn, aWn, aHn)
　　set b4Rect to current application’s NSMakeRect(bXn, bYn, bWn, bHn)
　　set a4Res to detectRectanglesCollision(a4Rect, b4Rect) of me
　　
　　return a4Res
end getCollision

–NSRect同士の衝突判定
on detectRectanglesCollision(aRect, bRect)
　　set a1Res to (current application’s NSIntersectionRect(aRect, bRect)) as {record, list}
　　set tmpClass to class of a1Res
　　
　　if tmpClass = record then
　　　　–macOS 10.10, 10.11, 10.12
　　　　return not (a1Res = {origin:{x:0.0, y:0.0}, |size|:{width:0.0, height:0.0}})
　　else if tmpClass = list then
　　　　–macOS 10.13 or later
　　　　return not (a1Res = {{0.0, 0.0}, {0.0, 0.0}})
　　end if
end detectRectanglesCollision