tell application "Keynote"
　　set dCount to count every document
　　if dCount = 0 then return –ドキュメントがオープンしていないと処理終了
　　
　　tell front document
　　　　set allNum to count every slide
　　　　if allNum < 2 then return –slideの枚数が少なかった場合に処理終了
　　　　
　　　　set curSlide to current slide
　　　　if allNum = curSlide then return –current slideが末尾だった場合処理終了
　　　　
　　　　set sNum to slide number of curSlide
　　　　set nextSlide to slide (sNum + 1)
　　　　
　　　　–最初のページ（スライド）からオブジェクトを収集
　　　　tell current slide
　　　　　　set curObj1 to every image
　　　　　　set curObj2 to every group
　　　　　　set curObjList to curObj1 & curObj2
　　　　　　if curObjList = {} then return
　　　　end tell
　　　　
　　　　–次のページ（スライド）からオブジェクトを収集
　　　　tell nextSlide
　　　　　　set nextObj1 to every image
　　　　　　set nextObj2 to every group
　　　　　　set nextObjList to nextObj1 & nextObj2
　　　　　　if nextObjList = {} then return
　　　　end tell
　　　　
　　　　set nexObjRes to calcOverlappedObj(curObjList, nextObjList) of me
　　　　repeat with i in nexObjRes
　　　　　　copy i to {origID, targID}
　　　　　　set aOrigObj to contents of item origID of curObjList
　　　　　　set aTargObj to contents of item origID of nextObjList
　　　　　　set origPos to position of aOrigObj
　　　　　　set position of aTargObj to origPos
　　　　end repeat
　　　　
　　　　set current slide to slide sNum
　　end tell
end tell

–与えられた２つのリストに入っているKeynoteオブジェクトの矩形座標が重なっているものをIDペアで出力する
–同時に複数のオブジェクトが重なっていないことが前提
on calcOverlappedObj(objList1, objList2)
　　tell application "Keynote"
　　　　–最初のページのオブジェクトからオブジェクトIDとNSRectからなるリストを作成
　　　　set objRecList1 to {}
　　　　set aCount to 1
　　　　repeat with i in objList1
　　　　　　if contents of i is not equal to {} then
　　　　　　　　set {x1, y1} to position of i
　　　　　　　　set aRect to {origin:{x:x1, y:y1}, |size|:{|width|:(width of i), |height|:(height of i)}}
　　　　　　　　
　　　　　　　　set the end of objRecList1 to {objID:aCount, rect:aRect}
　　　　　　end if
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　　　
　　　　–次のページのオブジェクトからオブジェクトIDとNSRectからなるリストを作成
　　　　set objRecList2 to {}
　　　　set aCount to 1
　　　　repeat with i in objList2
　　　　　　if contents of i is not equal to {} then
　　　　　　　　set {x1, y1} to position of i
　　　　　　　　set aRect to {origin:{x:x1, y:y1}, |size|:{|width|:(width of i), |height|:(height of i)}}
　　　　　　　　
　　　　　　　　set the end of objRecList2 to {objID:aCount, rect:aRect}
　　　　　　end if
　　　　　　set aCount to aCount + 1
　　　　end repeat
　　　　
　　　　–最初のページのオブジェクトと次のページのオブジェクトで矩形エリアが重なっているオブジェクトを抽出してそれぞれのIDをペアにしたリストを作成
　　　　set matchList to {}
　　　　repeat with i in objRecList1
　　　　　　
　　　　　　set origRect to rect of i
　　　　　　set origID to objID of i
　　　　　　
　　　　　　repeat with ii in objRecList2
　　　　　　　　
　　　　　　　　set targRect to rect of ii
　　　　　　　　set targID to objID of ii
　　　　　　　　set tRes to detectRectanglesCollision(origRect, targRect) of me
　　　　　　　　
　　　　　　　　if tRes = true then
　　　　　　　　　　set the end of matchList to {origID, targID}
　　　　　　　　end if
　　　　　　end repeat
　　　　　　
　　　　end repeat
　　　　
　　　　return matchList
　　end tell
end calcOverlappedObj

–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