set aTargMasterSlide to "空白" –This string is *Localized* in Japanese. This is "Blank"

tell application "Script Editor"
　　tell front document
　　　　set bText to contents of selection
　　end tell
end tell

if bText = "" then return

–指定のテキストをAppleScriptとして評価し、指定の構文要素に該当するものが含まれているかどうかチェック
set dRes to chkTargLexicalElementsFromCompiledScriptAttribute(bText, {9, 14}) of dangerAS
if dRes = missing value then
　　–The selected text contains AppleScript lexical error
　　display dialog "選択中のテキストにAppleScriptの構文エラーが検出されました" default answer bText with title "Error" with icon 2
　　return
end if

if dRes = true then
　　–The selected text contain danger AppleScript lexical element (maybe it is any command)
　　display dialog "選択中のテキストは実行に危険な文字列（AppleScriptコマンド）を含んでいるため、処理しませんでした" default answer bText with title "Error" with icon 2
　　return
end if

try
　　set aRes to run script bText –Danger!! Take Care of.
　　set aClass to class of aRes
on error
　　–The Evaluation error (some AppleScript lexical error)
　　display dialog "The contents of clipboard seems not to be an AppleScript list but " & (aClass as string) & return & bText with title "Error (1)" with icon 2
　　return
end try

if aClass is not equal to list then
　　–The Evaluated result is not list
　　display dialog "The contents of clipboard seems not to be an AppleScript list but " & (aClass as string) & return & bText with title "Error (2)" with icon 2
　　return
end if

set aLen to length of aRes
set aDim to getDimension given tArray:aRes
if aDim > 1 then
　　–Check List’s dimension (the taeget dimension is 1)
　　display dialog "選択中のテキストを評価したリスト（配列）の次元数が１ではなかったので、処理しませんでした" default answer bText with title "Dimension Error(3)" with icon 2
　　return
end if

tell application "Keynote"
　　activate
　　set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1024, height:768}) — –This string is *Localized* in Japanese. This is "White"
　　
　　tell aDoc
　　　　set masList to name of every master slide
　　　　if aTargMasterSlide is not in masList then return –多分ないと思うが、作成予定のマスタースライドが現在有効でない場合に処理打ち切り
　　　　
　　　　set base slide of current slide to master slide aTargMasterSlide
　　　　
　　　　tell current slide
　　　　　　set aTable to make new table with properties {header column count:0, header row count:1, row count:2, column count:aLen, name:"Test Table"}
　　　　　　
　　　　　　tell aTable
　　　　　　　　repeat with y from 1 to 1
　　　　　　　　　　tell row y
　　　　　　　　　　　　repeat with x from 1 to aLen
　　　　　　　　　　　　　　tell cell x
　　　　　　　　　　　　　　　　set value to (item x of aRes) as string
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　end tell
　　　　　　
　　　　end tell
　　end tell
end tell

–指定Listの次元を再帰で取得する
on getDimension given tArray:aList as list : {}, curDim:aNum as integer : 1
　　set anItem to contents of first item of aList
　　set aClass to class of anItem
　　
　　if aClass = list then
　　　　set aNum to aNum + 1
　　　　set aRes to getDimension given tArray:anItem, curDim:aNum
　　else
　　　　return aNum
　　end if
end getDimension