set repTargList to {string id 10, string id 11, string id 13} –LF,CR,VTab一括置換

tell application "Keynote"
　　if (count every document) = 0 then return
　　
　　tell front document
　　　　set tList to object text of default title item of every slide
　　end tell
end tell

–タイトルごとにゴミ取り（改行文字の削除）
set outList to {}
repeat with i in tList
　　set j1 to contents of i
　　set jTmp to (paragraphs of j1) as string –しつこい改行文字（？）を除去するための処理
　　
　　set j2 to replaceTextMultiple(jTmp, repTargList, "") of me as string
　　if j2 is not equal to "" then
　　　　set the end of outList to j2
　　end if
end repeat

–リストを改行で区切ったテキストに変換
set aStr to listToStringUsingTextItemDelimiter(outList, return) of me

–得られたテキストをTextEditの新規書類上に出力
tell application "TextEdit"
　　activate
　　make new document
　　set text of front document to aStr
end tell

–リストを指定デリミタで区切ったテキストに変換
on listToStringUsingTextItemDelimiter(sourceList as list, textItemDelimiter as string)
　　set anArray to current application’s NSArray’s arrayWithArray:sourceList
　　set aString to anArray’s componentsJoinedByString:textItemDelimiter
　　return (aString as string)
end listToStringUsingTextItemDelimiter

–任意のデータから特定の文字列を複数パターン一括置換
on replaceTextMultiple(origData as string, origTexts as list, repText as string)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to origTexts
　　set origData to text items of origData
　　set AppleScript’s text item delimiters to {repText}
　　set origData to origData as text
　　set AppleScript’s text item delimiters to curDelim
　　return origData
end replaceTextMultiple