property minTitleFontSize : 20
property targBaseSlide : "タイトル（上）"

tell application "Keynote"
　　tell front document
　　　　set newMaster to master slide targBaseSlide
　　　　
　　　　tell current slide
　　　　　　set curBaseName to name of base slide
　　　　　　
　　　　　　–現在のスライド上のすべてのテキストアイテムの座標{x ,y}を取得して最小（一番上）のものを推測
　　　　　　set pList to position of every text item
　　　　　　set p2List to sort2DListAscending(pList) of me
　　　　　　set mostUpPos to contents of first item of p2List
　　　　　　
　　　　　　–一番上に存在するテキストアイテムから情報を抽出
　　　　　　set tTextItem to first item of (every text item whose position is mostUpPos)
　　　　　　tell tTextItem
　　　　　　　　set tObjText to (object text)
　　　　　　　　set aTitle to tObjText as string
　　　　　　　　set aProp to size of (object text)
　　　　　　　　set aColor to color of (object text)
　　　　　　end tell
　　　　　　
　　　　　　–スライドの一番上に存在するテキストアイテムのフォントサイズが想定以上で、色が黒の場合には
　　　　　　–マスタースライドのデフォルトタイトルに、一番上に存在していたテキストアイテムの本文を突っ込む
　　　　　　if (aProp ≥ minTitleFontSize) and (aColor = {0, 0, 0}) then
　　　　　　　　–色判定でColor Domain処理を行えば、「黒っぽい色」や「赤っぽい色」を対象にできる
　　　　　　　　
　　　　　　　　if curBaseName is not equal to targBaseSlide then
　　　　　　　　　　set base slide to newMaster
　　　　　　　　end if
　　　　　　　　
　　　　　　　　delete tTextItem
　　　　　　　　set object text of default title item to aTitle
　　　　　　end if
　　　　end tell
　　end tell
end tell