選択中のリストのテキスト（多分）をもとにKeynoteの表を作成

Script Editor上で選択中の1D List（１次元配列）のテキストを評価してリストとして解釈し、それをもとにKeynoteの新規書類上に表を作成するAppleScriptです。

こんな感じ（↑）に、Script Editor上で1D List（１次元配列）のテキストが存在しているものを、資料化するためにKeynote上で表にすることがありますが、これが個人的に超絶かったるいです。

きれいにデータになっているものを、表のセルに細切れにして突っ込む作業がかったるいので、おそらくそれを手動で行う数倍の時間をかけてAppleScriptで自動化しておきました。

（１）Script Editor上でListの箇所を選択しておく
（２）Script Menuに入れておいた本Scriptを呼び出す
（３）Keynoteで新規書類を作成し、１ページ目に表を新規作成し、（１）の内容を１行目に代入

という動作を行います。上記のとおり、Script Menuに入れて呼び出すことを前提にしています。もし、そうでなければ当該部分をコピーしておいて、クリップボード経由で受け取るようにしてみてください。

当初は本Scriptもそういう構造になっていましたが、選択部分をコピーするのを忘れることが多いため、選択箇所から取得するように変更しました。

本Scriptは自分自身で使うことを前提に作ったため（本Blogまるごとそんなもんですが）、run scriptコマンドで文字列をAppleScriptとして評価して実行して結果を取得するという、ひじょーーーーーにセキュリティホールになりやすい処理を行っています。

本来、取得した文字列をAppleScriptとして評価して、構文要素的に「コマンド類」が入っていないか（とくにdo shell script）を評価する必要があると思います。その上で、もしもコマンド類が入っていた場合にはユーザーに再考を促すようにダイアログを表示するなどの処理を行うのがまっとうなやりかたでしょう。

このあたり、ものすごくラフに作ったので、利用はあくまで自己責任で行ってください（本Blogまるごとそんなもんですが）。

AppleScript名：選択中のリストのテキスト（多分）をもとにKeynoteの表を作成

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/07/31
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

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

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

if aClass is not equal to list then
　　display dialog "The contents of clipboard seems not to be an AppleScript list (2)." with title "Error"
　　return
end if

set aLen to length of aRes

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