set targCol to choose color –塗る文字色を選択

set headPickUpChar to "|"
set tailPickUpChar to "|"

–処理対象データの取得
tell application "Keynote"
　　
　　–最前面の書類
　　tell front document
　　　　
　　　　–現在表示中のスライド
　　　　tell current slide
　　　　　　–text itemをすべて取得
　　　　　　set tList to every text item
　　　　　　if tList = {} then return –何もtext itemが存在しなかったら処理終了
　　　　　　
　　　　　　–text itemの中に入っている文字列を取得
　　　　　　set objTList to object text of every text item
　　　　　　
　　　　end tell
　　end tell
end tell

–出現判定しつつ色を塗る
tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　
　　　　　　set posList to {}
　　　　　　set aCount to 1
　　　　　　
　　　　　　–text itemでループ
　　　　　　repeat with i in objTList
　　　　　　　　set j to contents of i
　　　　　　　　
　　　　　　　　–ターゲット文字で囲まれている箇所を検出。複数箇所検出対応
　　　　　　　　set bCon to pickUpPositionPairsFromTo(j, headPickUpChar, tailPickUpChar) of me
　　　　　　　　
　　　　　　　　if bCon is not equal to {} then
　　　　　　　　　　
　　　　　　　　　　set aTarg to item aCount of tList
　　　　　　　　　　
　　　　　　　　　　–出現位置でループ（複数検出対応）
　　　　　　　　　　repeat with ii in bCon
　　　　　　　　　　　　copy ii to {aStart, anEnd}
　　　　　　　　　　　　
　　　　　　　　　　　　–高速処理のために非同期実行
　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　tell aTarg
　　　　　　　　　　　　　　　　set color of characters aStart thru anEnd of object text to targCol
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set aCount to aCount + 1
　　　　　　end repeat
　　　　　　
　　　　end tell
　　end tell
end tell

–開始文字と終了文字に囲われた文字列のすべての位置情報を返す
on pickUpPositionPairsFromTo(aParamStr, fromStr, toStr)
　　script hsAry
　　　　property anArray : {}
　　　　property aList : {}
　　end script
　　
　　set (anArray of hsAry) to {}
　　set (aList of hsAry) to characters of aParamStr
　　
　　set tmpPair to {}
　　set searchMode to 0 — 0:fromStr, 1:toStr
　　set aCount to 1
　　
　　repeat with i in (aList of hsAry)
　　　　set j to contents of i
　　　　
　　　　if searchMode = 0 then
　　　　　　if j = fromStr then
　　　　　　　　set the end of tmpPair to aCount
　　　　　　　　set searchMode to 1
　　　　　　end if
　　　　　　
　　　　else if searchMode = 1 then
　　　　　　if j = toStr then
　　　　　　　　set the end of tmpPair to aCount
　　　　　　　　set searchMode to 0
　　　　　　　　set the end of (anArray of hsAry) to tmpPair
　　　　　　　　set tmpPair to {}
　　　　　　end if
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return (anArray of hsAry)
end pickUpPositionPairsFromTo