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

tell application "Keynote"
　　tell front document
　　　　set sSel to selection
　　　　if class of first item of sSel is not equal to slide then return
　　　　
　　　　repeat with curSlide in sSel
　　　　　　set current slide to curSlide
　　　　　　
　　　　　　tell current slide
　　　　　　　　–タイトルから丸つき数字文字のみ抽出
　　　　　　　　set myTitle to object text of default title item
　　　　　　　　set numStr to holdNumberWithSignOnly(myTitle) of me
　　　　　　　　set numList to characters of numStr
　　　　　　　　
　　　　　　　　–丸つき数字のうち最大のものを取得
　　　　　　　　set cList to {}
　　　　　　　　repeat with i in numList
　　　　　　　　　　set j to decodeNumFromNumWithSign(i) of me
　　　　　　　　　　set the end of cList to j
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　set sList to shellSortDescending(cList) of me
　　　　　　　　set theLargestNum to first item of sList –最大値
　　　　　　　　
　　　　　　　　
　　　　　　　　–表の情報を取得
　　　　　　　　tell table 1
　　　　　　　　　　set rCount to count every row
　　　　　　　　　　set tHeight to height of it
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　–追加が必要な行数を算出
　　　　　　　　set addRows to theLargestNum + 2 – rCount
　　　　　　　　if addRows > 0 then
　　　　　　　　　　tell table 1
　　　　　　　　　　　　set row count to (rCount + addRows)
　　　　　　　　　　　　
　　　　　　　　　　　　repeat with i from (rCount – 1) to (rCount + addRows – 2)
　　　　　　　　　　　　　　tell row (i + 1)
　　　　　　　　　　　　　　　　tell cell 1
　　　　　　　　　　　　　　　　　　set value to convNumToNumWithSign(i) of me
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end repeat
　　　　　　　　　　　　
　　　　　　　　　　　　tell row -1
　　　　　　　　　　　　　　tell cell 1
　　　　　　　　　　　　　　　　set value to "返り値"
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end tell
　　　　　　　　　　　　
　　　　　　　　　　　　–Resize Heiight
　　　　　　　　　　　　set curRows to row count
　　　　　　　　　　　　set height to (tHeight / rCount) * curRows
　　　　　　　　　　end tell
　　　　　　　　end if
　　　　　　end tell
　　　　end repeat
　　end tell
end tell

–文字列から丸つき数字のみ抽出
on holdNumberWithSignOnly(aStr as text)
　　set aNSString to current application’s NSString’s stringWithString:aStr
　　
　　return (aNSString’s stringByReplacingOccurrencesOfString:"[^＼＼U000024EA-＼＼U000024EA＼＼U00002460-＼＼U00002473＼＼U00003251-＼＼U000032BF＼＼U000024FF-＼＼U000024FF＼＼U00002776-＼＼U0000277F＼＼U000024EB-＼＼U000024F4＼＼U00002780-＼＼U00002789＼＼U0000278A-＼＼U00002793＼＼U000024F5-＼＼U000024FE]" withString:"" options:(current application’s NSRegularExpressionSearch) range:{0, aNSString’s |length|()}) as text
end holdNumberWithSignOnly

–丸つき数字を数字に変換
on decodeNumFromNumWithSign(aStr as string)
　　set numStr to "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿"
　　if numStr does not contain aStr then return false
　　using terms from scripting additions
　　　　set bNum to offset of aStr in numStr
　　end using terms from
　　return bNum
end decodeNumFromNumWithSign

–数字を丸つき数字に変換
on convNumToNumWithSign(aNum as number)
　　if (aNum ≤ 0) or (aNum > 50) then return ""
　　set aStr to "①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳㉑㉒㉓㉔㉕㉖㉗㉘㉙㉚㉛㉜㉝㉞㉟㊱㊲㊳㊴㊵㊶㊷㊸㊹㊺㊻㊼㊽㊾㊿"
　　set bChar to character aNum of aStr
　　return bChar
end convNumToNumWithSign

–入れ子ではないリスト（1D List）の昇順ソート
on shellSortAscending(aSortList)
　　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 (oBj’s list’s item (j – gap + 1) > 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 shellSortAscending

–入れ子ではないリスト（1D List）の降順ソート
on shellSortDescending(aSortList)
　　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 (oBj’s list’s item (j – gap + 1) < 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 shellSortDescending