–Numbersの選択範囲からデータを取得する（Excel-Like Nested List Format）
set aList to retExcelLikeStyleDataFromNumbersSelection() of me

set heightOfList to length of aList –データの高さ（行数）を取得
set widthOfList to length of first item of aList –データの幅（列数）を取得

–Omni Graffleの選択オブジェクト情報を取得
tell application "OmniGraffle 5"
　　tell front window
　　　　set aSel to selection
　　　　set aaSel to first item of aSel
　　　　
　　　　set {xSize, ySize} to size of aaSel
　　　　set {xOrigPos, yOrigPos} to origin of aaSel
　　　　
　　　　delete aaSel –位置指定用のオブジェクトを削除
　　　　
　　end tell
end tell

–表のセルの大きさを計算する
set xStep to xSize / widthOfList
set yStep to ySize / heightOfList

–テーブル用のオブジェクトリスト
set tObjList to {}

tell application "OmniGraffle 5"
　　tell canvas of front window
　　　　
　　　　repeat with y from 1 to heightOfList
　　　　　　repeat with x from 1 to widthOfList
　　　　　　　　
　　　　　　　　set aText to contents of item x of item y of aList
　　　　　　　　
　　　　　　　　–Numbersの表の空きセルからデータを取ったときに数値の0.0が返る現象への対策
　　　　　　　　if aText = 0.0 then
　　　　　　　　　　set aText to ""
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set tmpXpos to xOrigPos + ((x - 1) * xStep)
　　　　　　　　set tmpYpos to yOrigPos + ((y - 1) * yStep)
　　　　　　　　
　　　　　　　　–セルを作成する
　　　　　　　　if y = 1 then
　　　　　　　　　　–ヘッダー行の場合にはセル内を指定色で塗る
　　　　　　　　　　set aCellObj to make new shape at end of graphics with properties {fill:solid fill, fill color:headerFillCol, draws shadow:false, size:{xStep, yStep}, side padding:cellYohakuPoint, thickness:0.25, autosizing:vertically only, vertical padding:cellYohakuPoint, origin:{tmpXpos, tmpYpos}, text:{text:aText, font:textFontName, size:textPointSize}}
　　　　　　　　　　
　　　　　　　　else
　　　　　　　　　　–通常行はセル内を塗りつぶさない
　　　　　　　　　　set aCellObj to make new shape at end of graphics with properties {fill:no fill, draws shadow:false, size:{xStep, yStep}, side padding:cellYohakuPoint, thickness:0.25, autosizing:vertically only, vertical padding:cellYohakuPoint, origin:{tmpXpos, tmpYpos}, text:{text:aText, font:textFontName, size:textPointSize}}
　　　　　　　　　　
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set the end of tObjList to aCellObj
　　　　　　　　
　　　　　　end repeat
　　　　end repeat
　　　　
　　　　–セルを表に合成する
　　　　assemble tObjList table shape {heightOfList, widthOfList}
　　　　
　　end tell
end tell

–Numbersで選択範囲を縦に区切ったリストを返す
on retExcelLikeStyleDataFromNumbersSelection()
　　
　　tell application "Numbers"
　　　　tell document 1
　　　　　　tell sheet 1
　　　　　　　　tell table 1
　　　　　　　　　　set selList to value of every cell of selection range –選択範囲のデータを取得
　　　　　　　　　　
　　　　　　　　　　set selName to name of selection range –選択範囲のrange情報を取得
　　　　　　　　　　set {s1, s2} to parseByDelim(selName, ":") of me
　　　　　　　　　　
　　　　　　　　　　–始点の情報を取得する
　　　　　　　　　　set s1Row to (address of row of range s1) as integer
　　　　　　　　　　set s1Column to (address of column of range s1) as integer
　　　　　　　　　　
　　　　　　　　　　–終点の情報を取得する
　　　　　　　　　　set s2Row to (address of row of range s2) as integer
　　　　　　　　　　set s2Column to (address of column of range s2) as integer
　　　　　　　　　　
　　　　　　　　　　–選択範囲の情報を取得する
　　　　　　　　　　set selHeight to s2Row - s1Row + 1 –高さ(Height of selection range)
　　　　　　　　　　set selWidth to s2Column - s1Column + 1 –幅(Width of selection range)
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　set aLen to length of selList
　　set aaLen to selHeight
　　
　　set bList to {}
　　repeat with i from 1 to aaLen
　　　　set aHoriList to {}
　　　　
　　　　repeat with ii from 1 to selWidth
　　　　　　set j1 to ii + (i - 1) * selWidth
　　　　　　set tmpCon to contents of item j1 of selList
　　　　　　
　　　　　　set aClass to class of tmpCon
　　　　　　if aClass = number or aClass = integer or aClass = real then
　　　　　　　　set tmpCon to tmpCon as integer
　　　　　　end if
　　　　　　
　　　　　　set the end of aHoriList to tmpCon
　　　　end repeat
　　　　
　　　　set the end of bList to aHoriList
　　end repeat
　　
　　return bList
　　
end retExcelLikeStyleDataFromNumbersSelection

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

repeat with i in aList
　　say i using “Kyoko”
end repeat

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aFol to choose folder with prompt “Numbersに貼り付ける画像が入っているフォルダを選択してください”

tell application “Finder”
　　set aList to (every file of aFol) as alias list
end tell

set aLen to length of aList

tell application “Numbers”
　　tell document 1
　　　　tell sheet 1
　　　　　　tell table 1
　　　　　　　　set row count to aLen + 5
　　　　　　end tell
　　　　end tell
　　end tell
end tell

set aCounter to 2

repeat with i in aList
　　tell application “Adobe Photoshop CS3″
　　　　activate
　　　　open i
　　　　set d1Doc to (a reference to current document)
　　　　
　　　　tell d1Doc
　　　　　　select all
　　　　　　copy
　　　　end tell
　　　　
　　　　tell document 1
　　　　　　close saving no
　　　　end tell
　　　　
　　end tell
　　
　　
　　set aRangeStr to aRange & (aCounter as string) & “:” & aRange & (aCounter as string)
　　
　　tell application “Numbers”
　　　　tell document 1
　　　　　　tell sheet 1
　　　　　　　　tell table 1
　　　　　　　　　　set selection range to range aRangeStr
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　activate application “Numbers”
　　tell application “System Events”
　　　　tell process “Numbers”
　　　　　　keystroke “v” using {command down}
　　　　end tell
　　end tell
　　
　　
　　set aCounter to aCounter + 1
　　
end repeat

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–与えたリストのデータ（入れ子のリスト）を、Numbersで現在選択中のセルから展開する
–セルが選択されていなかった場合には原点から展開
–展開後のデータ範囲が現在のテーブルの範囲を超える場合にはエラーになる
on fillCellFromSelectedCellOnNumbersByList(aList)
　　set dataRow to length of aList
　　set dataColumn to length of first item of aList
　　
　　set {aRow, aColumn} to getSelectedRowColumn() of me
　　
　　if {aRow, aColumn} = {0, 0} then
　　　　set aRow to 1
　　　　set aColumn to 1
　　end if
　　
　　set fromAddress to getNameOfNumbersAddress(aRow, aColumn) of me
　　set toAddress to getNameOfNumbersAddress(aRow + dataRow - 1, aColumn + dataColumn - 1) of me
　　
　　set dataRange to fromAddress & “:” & toAddress
　　
　　–リストをフラット化
　　set aaList to FlattenList(aList) of me
　　fillCellOnNumbers(aaList, dataRange) of me
　　
end fillCellFromSelectedCellOnNumbersByList

–指定範囲のNumbers上のセルを指定リストの値で埋める
–ループでcellを埋めているので、処理が遅い
on fillCellOnNumbers(aList, aRangeAddress)
　　tell application “Numbers”
　　　　tell document 1
　　　　　　tell sheet 1
　　　　　　　　tell table 1
　　　　　　　　　　–cellのリストが返ってくる
　　　　　　　　　　set aCellList to cell of range aRangeAddress
　　　　　　　　　　
　　　　　　　　　　set cCount to 1
　　　　　　　　　　
　　　　　　　　　　repeat with i in aCellList
　　　　　　　　　　　　set aCon to contents of item cCount of aList
　　　　　　　　　　　　set value of i to aCon
　　　　　　　　　　　　
　　　　　　　　　　　　set cCount to cCount + 1
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end fillCellOnNumbers

–指定したNumbersのcell/rowのnameを返す
on getNameOfNumbersAddress(aRow, aColumn)
　　try
　　　　tell application “Numbers”
　　　　　　tell document 1
　　　　　　　　tell sheet 1
　　　　　　　　　　tell table 1
　　　　　　　　　　　　set aName to name of cell aRow of column aColumn
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　on error
　　　　return “”
　　end try
end getNameOfNumbersAddress

–Numbersで選択されているセルのRowとColumnを取得する
on getSelectedRowColumn()
　　tell application “Numbers”
　　　　tell document 1
　　　　　　tell sheet 1
　　　　　　　　tell table 1
　　　　　　　　　　try
　　　　　　　　　　　　set selList to value of every cell of selection range –選択範囲のデータを取得
　　　　　　　　　　on error
　　　　　　　　　　　　return {0, 0}
　　　　　　　　　　end try
　　　　　　　　　　
　　　　　　　　　　set selName to name of selection range –選択範囲のrange情報を取得
　　　　　　　　　　set {s1, s2} to parseByDelim(selName, “:”) of me
　　　　　　　　　　
　　　　　　　　　　–始点の情報を取得する
　　　　　　　　　　set s1Row to (address of row of range s1) as integer
　　　　　　　　　　set s1Column to (address of column of range s1) as integer
　　　　　　　　　　
　　　　　　　　　　–終点の情報を取得する
　　　　　　　　　　set s2Row to (address of row of range s2) as integer
　　　　　　　　　　set s2Column to (address of column of range s2) as integer
　　　　　　　　　　
　　　　　　　　　　–選択範囲の情報を取得する
　　　　　　　　　　set selHeight to s2Row - s1Row + 1 –高さ(Height of selection range)
　　　　　　　　　　set selWidth to s2Column - s1Column + 1 –幅(Width of selection range)
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　return {s1Row, s1Column}
end getSelectedRowColumn

–与えられた文字列を、指定デリミタ文字でparseしてリストにして返す
on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

–By Paul Berkowitz
–2009年1月27日 2:24:08:JST
–Re: Flattening Nested Lists
on FlattenList(aList)
　　set oldDelims to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {“????”}
　　set aString to aList as text
　　set aList to text items of aString
　　set AppleScript’s text item delimiters to oldDelims
　　return aList
end FlattenList

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aLen to length of selList
set aaLen to selHeight

set bList to {}
repeat with i from 1 to aaLen
　　set aHoriList to {}
　　
　　repeat with ii from 1 to selWidth
　　　　set j1 to ii + (i - 1) * selWidth
　　　　set the end of aHoriList to contents of item j1 of selList
　　end repeat
　　
　　set the end of bList to aHoriList
end repeat

bList
–> {{"Apple", "Lemon", "Strawberry"}, {10.0, 20.0, 30.0}}

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application "Numbers"
　　tell document 1
　　　　tell sheet 1
　　　　　　tell table 1
　　　　　　　　set selList to value of every cell of selection range –選択範囲のデータを取得
　　　　　　　　
　　　　　　　　set selName to name of selection range –選択範囲のrange情報を取得
　　　　　　　　set {s1, s2} to parseByDelim(selName, ":") of me
　　　　　　　　
　　　　　　　　–始点の情報を取得する
　　　　　　　　set s1Row to (address of row of range s1) as integer
　　　　　　　　set s1Column to (address of column of range s1) as integer
　　　　　　　　
　　　　　　　　–終点の情報を取得する
　　　　　　　　set s2Row to (address of row of range s2) as integer
　　　　　　　　set s2Column to (address of column of range s2) as integer
　　　　　　　　
　　　　　　　　–選択範囲の情報を取得する
　　　　　　　　set selHeight to s2Row - s1Row + 1 –高さ(Height of selection range)
　　　　　　　　set selWidth to s2Column - s1Column + 1 –幅(Width of selection range)
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end tell

set aLen to length of selList
set aaLen to selWidth

set bList to {}
repeat with i from 1 to aaLen
　　set aVerList to {}
　　
　　repeat with ii from 1 to selHeight
　　　　set j1 to i + (ii - 1) * aaLen
　　　　set the end of aVerList to contents of item j1 of selList
　　end repeat
　　
　　set the end of bList to aVerList
end repeat

bList
–> {{"Apple", 10.0}, {"Lemon", 20.0}, {"Strawberry", 30.0}}

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に