–16ビット値→8ビット値　変換
set rCol to rCol div 256
set gCol to gCol div 256
set bCol to bCol div 256

set aCMYK to retCMYKfromRGBnumList(rCol, gCol, bCol) of me
–> {0, 82, 82, 0} –結果は選択した色によって異なります。返ってくる値が４つの数字で構成されることを示しています

copy aCMYK to {cNum, mNum, yNum, kNum}

set bRGB to retRGBfromCMYKnumList(cNum, mNum, yNum, kNum) of me
–> {154, 192, 57}–結果は選択した色によって異なります。返ってくる値が3つの数字で構成されることを示しています

–与えられたテキストをRGBデータと評価してCMYK値を返す
on retCMYKfromRGBnumList(rNum, gNum, bNum)
　　
　　tell application "Adobe Photoshop CS3"
　　　　set myCMYKColor to convert color {class:RGB color, red:rNum, green:gNum, blue:bNum} to CMYK
　　　　
　　　　set cyanNum to cyan of myCMYKColor
　　　　set magentaNum to magenta of myCMYKColor
　　　　set yellowNum to yellow of myCMYKColor
　　　　set kuroNum to black of myCMYKColor
　　end tell
　　
　　set cyanNum to round cyanNum rounding as taught in school –四捨五入
　　set magentaNum to round magentaNum rounding as taught in school –四捨五入
　　set yellowNum to round yellowNum rounding as taught in school –四捨五入
　　set kuroNum to round kuroNum rounding as taught in school –四捨五入
　　
　　return {cyanNum, magentaNum, yellowNum, kuroNum}
　　
end retCMYKfromRGBnumList

–与えられたCMYKデータをRGBに変換して返す
on retRGBfromCMYKnumList(cNum, mNum, yNum, kNum)
　　
　　tell application "Adobe Photoshop CS3"
　　　　set myRGBColor to convert color {class:CMYK color, cyan:cNum, magenta:mNum, yellow:yNum, black:kNum} to RGB
　　　　
　　　　set redNum to red of myRGBColor
　　　　set greenNum to green of myRGBColor
　　　　set blueNum to blue of myRGBColor
　　end tell
　　
　　set redNum to round redNum rounding as taught in school –四捨五入
　　set greenNum to round greenNum rounding as taught in school –四捨五入
　　set blueNum to round blueNum rounding as taught in school –四捨五入
　　
　　
　　return {redNum, greenNum, blueNum}
　　
end retRGBfromCMYKnumList

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

–与えられたテキストをRGBデータと評価してCMYK値を返す
on retCMYKfromRGBstr(aData)
　　if aData = "" then return {false, false, false, false}
　　
　　set {rDat, gDat, bDat} to divideABC(aData, ",") of me
　　
　　
　　tell application "Adobe Photoshop CS3"
　　　　set myCMYKColor to convert color {class:RGB color, red:rDat, green:gDat, blue:bDat} to CMYK
　　　　
　　　　set cyanNum to cyan of myCMYKColor
　　　　set magentaNum to magenta of myCMYKColor
　　　　set yellowNum to yellow of myCMYKColor
　　　　set kuroNum to black of myCMYKColor
　　end tell
　　
　　set cyanNum to round cyanNum rounding as taught in school –四捨五入
　　set magentaNum to round magentaNum rounding as taught in school –四捨五入
　　set yellowNum to round yellowNum rounding as taught in school –四捨五入
　　set kuroNum to round kuroNum rounding as taught in school –四捨五入
　　
　　return {cyanNum, magentaNum, yellowNum, kuroNum}
　　
end retCMYKfromRGBstr

–文字列をparseする（R,G,B)の文字データを処理するためのもの
on divideABC(aStr, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2, item3}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　　　set item3 to item3 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2, item3}
end divideABC

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

–与えられたテキストをRGBデータと評価してCMYK値を返す
on retCMYKfromRGBstr(aData)
　　if aData = "" then return {false, false, false, false}
　　
　　set {rDat, gDat, bDat} to divideABC(aData, ",") of me
　　
　　
　　tell application id "com.adobe.PhotoshopElements" –Phothop Elements
　　　　set myCMYKColor to convert color {class:RGB color, red:rDat, green:gDat, blue:bDat} to CMYK
　　　　
　　　　set cyanNum to cyan of myCMYKColor
　　　　set magentaNum to magenta of myCMYKColor
　　　　set yellowNum to yellow of myCMYKColor
　　　　set kuroNum to black of myCMYKColor
　　end tell
　　
　　set cyanNum to round cyanNum rounding as taught in school –四捨五入
　　set magentaNum to round magentaNum rounding as taught in school –四捨五入
　　set yellowNum to round yellowNum rounding as taught in school –四捨五入
　　set kuroNum to round kuroNum rounding as taught in school –四捨五入
　　
　　return {cyanNum, magentaNum, yellowNum, kuroNum}
　　
end retCMYKfromRGBstr

–文字列をparseする（R,G,B)の文字データを処理するためのもの
on divideABC(aStr, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2, item3}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　　　set item3 to item3 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2, item3}
end divideABC

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

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

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

set xCenter to x1 + (x2 - x1) / 2
set yCenter to y1 + (y2 - y1) / 2
set aList to getColValOnSpecifiedPosition(xCenter, yCenter) of me
–> {252, 156, 88}

–指定座標のカラー値をRGB値で返す
on getColValOnSpecifiedPosition(xPos, yPos)
　　tell application “Adobe Photoshop CS3″
　　　　tell current document
　　　　　　–Color Samplerを作成して指定座標の色情報を取得する
　　　　　　set aSampler to make new color sampler with properties {class:color sampler, position:{xPos, yPos}}
　　　　　　
　　　　　　set rgbValues to color sampler color of aSampler
　　　　　　
　　　　　　set rgb_rCol to red of rgbValues
　　　　　　set rgb_gCol to green of rgbValues
　　　　　　set rgb_bCol to blue of rgbValues
　　　　　　
　　　　　　–四捨五入
　　　　　　set rgb_rCol to round rgb_rCol rounding as taught in school
　　　　　　set rgb_gCol to round rgb_gCol rounding as taught in school
　　　　　　set rgb_bCol to round rgb_bCol rounding as taught in school
　　　　　　
　　　　　　
　　　　　　–Color Samplerを削除（Max 4個なので作ったらすぐに削除）
　　　　　　delete aSampler
　　　　　　
　　　　　　return {rgb_rCol, rgb_gCol, rgb_bCol}
　　　　　　
　　　　end tell
　　end tell
end getColValOnSpecifiedPosition

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

tell application “Adobe Photoshop CS3″
　　if (count every document) = 0 then
　　　　display dialog “画像をオープンして、切り取り最小部分を選択した状態で実行してください。” buttons {“OK”} default button 1 with icon 1
　　　　return
　　end if
　　
　　tell document 1
　　　　–選択部分のサイズを取得
　　　　try
　　　　　　set {sx1, sy1, sx2, sy2} to bounds of selection
　　　　on error
　　　　　　–選択部分が存在していなかった場合　　
　　　　　　display dialog “画像をオープンして、切り取り最小部分を選択した状態で実行してください。” buttons {“OK”} default button 1 with icon 1
　　　　　　return
　　　　end try
　　　　set sWidth to sx2 - sx1
　　　　set sHeight to sy2 - sy1
　　　　
　　　　–画像全体のサイズ
　　　　set widNum to width
　　　　set heiNum to height
　　　　
　　　　–画像全体における選択部分の分割個数を収録
　　　　set selNumX to widNum / sWidth
　　　　set selNumX to round selNumX rounding as taught in school
　　　　set selNumX to selNumX as integer
　　　　
　　　　set selNumY to heiNum / sHeight
　　　　set selNumY to round selNumY rounding as taught in school
　　　　set selNumY to selNumY as integer
　　end tell
end tell

set outCount to 1

repeat with y from 0 to (selNumY - 1)
　　repeat with X from 0 to (selNumX - 1)
　　　　set cX1 to (X * sWidth)
　　　　set cX2 to ((X + 1) * sWidth)
　　　　
　　　　set cY1 to (y * sHeight)
　　　　set cY2 to ((y + 1) * sHeight)
　　　　
　　　　
　　　　set aName to outCount as string
　　　　
　　　　–指定エリアを新規保存
　　　　savePolygonToNewFile(cX1, cY1, cX2, cY2, outFol, aName) of me
　　　　
　　　　set outCount to outCount + 1
　　end repeat
end repeat

–Photoshopで指定座標の内容をコピーして新規ファイルで保存
on savePolygonToNewFile(x1, y1, x2, y2, aFol, aName)
　　
　　makePhotoshopSelectionRegion(x1, y1, x2, y2) of me
　　
　　tell application “Adobe Photoshop CS3″
　　　　activate
　　　　copy
　　　　set newDoc to make new document with properties {height:(y2 - y1), width:(x2 - x1)}
　　　　tell newDoc
　　　　　　paste
　　　　end tell
　　end tell
　　
　　set newFilePath to (aFol as string) & aName & “.jpg”
　　
　　tell application “Adobe Photoshop CS3″
　　　　set myOptions to {class:JPEG save options, embed color profile:true, format options:progressive, quality:12, scans:3}
　　　　save newDoc in file newFilePath as JPEG with options myOptions appending lowercase extension with copying
　　　　close newDoc saving no
　　end tell
　　
end savePolygonToNewFile

–Photoshop上で指定矩形を選択する
on makePhotoshopSelectionRegion(x1, y1, x2, y2)
　　tell application “Adobe Photoshop CS3″
　　　　tell current document
　　　　　　select region {{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}} combination type replaced
　　　　end tell
　　end tell
end makePhotoshopSelectionRegion

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

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

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

set doc1FolderStr to doc1Folder as string
set doc1FolderStr to doc1FolderStr as Unicode text

set doc2FolderStr to doc2Folder as string
set doc2FolderStr to doc2FolderStr as Unicode text

set outFolStr to outFol as string
set outFolStr to outFolStr as Unicode text

tell application “Finder”
　　tell folder doc1Folder
　　　　set doc1Files to name of every file whose name ends with “.jpg”
　　end tell
　　
　　tell folder doc2Folder
　　　　set doc2Files to name of every file whose name ends with “.jpg”
　　end tell
　　
　　if (length of doc1Files) is not equal to (length of doc2Files) then
　　　　display dialog “エラー：画像1側と画像2側のファイル数が異なります”
　　　　return
　　end if
end tell

–Photoshop CS3のRulerをPixelに設定
changeRulerToPXL() of me

set fLen to length of doc1Files

repeat with i from 1 to fLen
　　set doc1Name to (contents of item i of doc1Files)
　　set doc2Name to (contents of item i of doc2Files)
　　
　　–ファイル名が違っていた場合にはエラー
　　if doc1Name is not equal to doc2Name then
　　　　display dialog “２つの画像フォルダに入っているファイル名が違っています” buttons {“OK”} default button 1 with icon 1
　　　　return
　　end if
　　
　　set doc1FilePath to doc1FolderStr & doc1Name
　　set doc2FilePath to doc2FolderStr & doc2Name
　　
　　set savePath to outFolStr & (contents of item i of doc1Files)
　　
　　tell application “Adobe Photoshop CS3″
　　　　activate
　　　　
　　　　–画像1をオープン
　　　　open (doc1FilePath as alias) showing dialogs never
　　　　set d1Doc to (a reference to current document)
　　　　
　　　　tell d1Doc
　　　　　　–サイズなどを取得
　　　　　　set hSize to height
　　　　　　set wSize to width
　　　　　　set aResol to resolution
　　　　　　
　　　　　　–内容をすべてコピーしてクローズ　　　　
　　　　　　select all
　　　　　　copy
　　　　　　close without saving
　　　　end tell
　　　　
　　　　–画像1と同じサイズの画像を新規作成する
　　　　set newDoc to make new document with properties {name:“composed_image”, width:wSize, height:hSize, resolution:aResol, mode:RGB, bits per channel:eight, initial fill:transparent, color profile kind:none, pixel aspect ratio:1.0}
　　　　tell newDoc
　　　　　　set a1Layer to (make new art layer with properties {name:“doc1″})
　　　　　　set current layer to a1Layer
　　　　　　tell a1Layer
　　　　　　　　paste –画像1をペースト
　　　　　　end tell
　　　　end tell
　　　　
　　　　–画像2をオープン
　　　　open (doc2FilePath as alias) showing dialogs never
　　　　set d2Doc to (a reference to current document)
　　　　
　　　　–内容をすべてコピーしてクローズ　　　　
　　　　tell d2Doc
　　　　　　select all
　　　　　　copy
　　　　　　close without saving
　　　　end tell
　　　　
　　　　tell newDoc
　　　　　　set a2Layer to (make new art layer with properties {name:“doc2″})
　　　　　　set current layer to a2Layer
　　　　　　tell a2Layer
　　　　　　　　paste
　　　　　　end tell
　　　　　　
　　　　　　set current layer to layer 1
　　　　　　
　　　　　　–レイヤー１の合成フォーマットを「差の絶対値」に
　　　　　　tell layer 1
　　　　　　　　set blend mode to difference
　　　　　　end tell
　　　　　　
　　　　　　
　　　　　　set savedDoc to (save in file savePath as Photoshop format) –一度保存すると、それまでのドキュメントへの参照が無効になるので、再度参照を取得
　　　　end tell
　　　　
　　　　tell savedDoc to close without saving
　　　　
　　end tell
　　
end repeat

–Photoshopの定規単位をpixelに変更
on changeRulerToPXL()
　　tell application “Adobe Photoshop CS3″ to setRulerPref(pixel units) of me
end changeRulerToPXL

–Photoshopの定規単位を設定
–パラメータ１：cm units/inch units/mm units/percent units/pica units/pixel units/point units
on setRulerPref(myRuler)
　　tell application “Adobe Photoshop CS3″
　　　　set ruler units of settings to myRuler
　　end tell
end setRulerPref

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

–Photoshop CS3の指定アクションセット内のアクション名称を取得する
on getPSCS3ActionName(actionSetName)
　　tell application "Adobe Photoshop CS3"
　　　　set jsText to "#target photoshop
var outFile = File(\"~/desktop/.psaclist.txt\");
outFile.open(\"w\");
var aList = getActions(’" & actionSetName & "’);
for(var z in aList) {
outFile.writeln(aList[z]);
}
outFile.close();

function getActions(aset) {
cTID = function(s) { return app.charIDToTypeID(s); };
sTID = function(s) { return app.stringIDToTypeID(s); };
var i = 1;
var names = [];
if (!aset) {
throw \"Action set must be specified\";
}
while (true) {
var ref = new ActionReference();
ref.putIndex(cTID(\"ASet\"), i);
var desc;
try {
desc = executeActionGet(ref);
} catch (e) {
break; // all done
}
if (desc.hasKey(cTID(\"Nm \"))) {
var name = desc.getString(cTID(\"Nm \"));
if (name == aset) {
var count = desc.getInteger(cTID(\"NmbC\"));
var names = [];
for (var j = 1; j <= count; j++) {
var ref = new ActionReference();
ref.putIndex(cTID(’Actn’), j);
ref.putIndex(cTID(’ASet’), i);
var adesc = executeActionGet(ref);
var actName = adesc.getString(cTID(’Nm ‘));
names.push(actName);
}
break;
}
}
i++;
}
return names;
};
"
　　　　set display dialogs to never
　　　　try
　　　　　　do javascript (jsText)
　　　　　　set setFound to true
　　　　on error number 8800
　　　　　　set setFound to false
　　　　end try
　　end tell
　　
　　try
　　　　do shell script "sync"
　　　　set sRes to do shell script "cat ~/desktop/.psaclist.txt"
　　　　do shell script "rm ~/desktop/.psaclist.txt"
　　　　
　　　　if sRes is not equal to false then
　　　　　　set sRes to paragraphs of sRes
　　　　end if
　　　　
　　　　return sRes
　　on error
　　　　return false
　　end try
end getPSCS3ActionName

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

–Photoshop CS3のアクションセット名称を取得する
on getPSCS3ActionSetName()
　　tell application “Adobe Photoshop CS3″
　　　　set jsText to “#target photoshop
var actionList = getActionSets();
var outFile = File(\”~/desktop/.action_set.txt\”);
outFile.open(\”w\”); 　　　　
for(var a in actionList){
outFile.writeln(actionList[a]);
}
outFile.close();

function getActionSets() {
cTID = function(s) { return app.charIDToTypeID(s); };
sTID = function(s) { return app.stringIDToTypeID(s); };
var i = 1;
var sets = [];
while (true) {
var ref = new ActionReference();
ref.putIndex(cTID(\”ASet\”), i);
var desc;
var lvl = $.level;
$.level = 0;
try {
desc = executeActionGet(ref);
} catch (e) {
break; // all done
} finally {
$.level = lvl;
}
if (desc.hasKey(cTID(\”Nm \”))) {
var set = {};
set.index = i;
set.name = desc.getString(cTID(\”Nm \”));
set.toString = function() { return this.name; };
set.count = desc.getInteger(cTID(\”NmbC\”));
set.actions = [];
for (var j = 1; j < = set.count; j++) {
var ref = new ActionReference();
ref.putIndex(cTID(’Actn’), j);
ref.putIndex(cTID(’ASet’), set.index);
var adesc = executeActionGet(ref);
var actName = adesc.getString(cTID(’Nm ‘));
set.actions.push(actName);
}
sets.push(set);
}
i++;
}
return sets;
};

“
　　　　set display dialogs to never
　　　　
　　　　try
　　　　　　do javascript (jsText)
　　　　　　set setFound to true
　　　　on error number 8800
　　　　　　set setFound to false
　　　　end try
　　end tell
　　
　　try
　　　　do shell script “sync”
　　　　set sRes to do shell script “cat ~/desktop/.action_set.txt”
　　　　do shell script “rm ~/desktop/.action_set.txt”
　　　　return sRes
　　on error
　　　　return false
　　end try
end getPSCS3ActionSetName

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

–Photoshop CS3のアクションセットを削除する
on deletePSCS3Action(actionSetName)
　　tell application “Adobe Photoshop CS3″
　　　　set display dialogs to never
　　　　activate
　　　　try
　　　　　　do javascript (“
var setName = new ActionReference();
setName.putName(charIDToTypeID( \”ASet\”), \”" & actionSetName & “\” );
var deleteSet = new ActionDescriptor();
deleteSet.putReference( charIDToTypeID(\”null\”), setName );
executeAction(charIDToTypeID( \”Dlt \”), deleteSet, DialogModes.NO);”)
　　　　　　set setFound to true
　　　　on error number 8800
　　　　　　set setFound to false
　　　　end try
　　end tell
　　return setFound as boolean
end deletePSCS3Action

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

makePhotoshopSelectionRegion(x1, y1, x2, y2) of me

tell application “Adobe Photoshop CS3″
　　activate
　　copy
　　set newDoc to make new document with properties {height:(y2 - y1), width:(x2 - x1)}
　　tell newDoc
　　　　paste
　　end tell
end tell

set newFilePath to (choose file name) as string

tell application “Adobe Photoshop CS3″
　　set myOptions to {class:JPEG save options, embed color profile:true, format options:progressive, quality:12, scans:3}
　　save newDoc in newFilePath as JPEG with options myOptions appending lowercase extension with copying
　　close document 1 saving no
end tell

–Photoshop上で指定矩形を選択する
on makePhotoshopSelectionRegion(x1, y1, x2, y2)
　　tell application “Adobe Photoshop CS3″
　　　　tell current document
　　　　　　select region {{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}} combination type replaced
　　　　end tell
　　end tell
end makePhotoshopSelectionRegion

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

–Photoshop上で指定矩形を選択する
on makePhotoshopSelectionRegion(x1, y1, x2, y2)
　　tell application “Adobe Photoshop CS3″
　　　　tell current document
　　　　　　select region {{x1, y1}, {x2, y1}, {x2, y2}, {x1, y2}} combination type replaced
　　　　end tell
　　end tell
end makePhotoshopSelectionRegion

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

–> {209.0, 96.0, 777.0, 312.0}

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

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

–リスト要素の合計を計算する
set iCount to 0
repeat with i in bList
　　set iCount to iCount + i
end repeat
set halfVal to iCount div 2 –画像の全画素のドット数で数えて中央の要素を計算（何個目のドットが中央か）

–ドット個数の中央値を超える要素をループで検出する
set iiCount to 0
set iiCounter to 1
repeat with i in bList
　　set iiCount to iiCount + i
　　if iiCount is not less than halfVal then
　　　　exit repeat
　　end if
　　set iiCounter to iiCounter + 1
end repeat

iiCounter –暗いドットから明るいドットまですべて順番に並べて、個数的に真ん中のものの明るさが求められる
–> 140

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

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

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

histList
–> {0, 0, 0, 0, 0, 1, 3, 27, 91, 264, 425, 724, 888, 819, 604, 585, 474, 422, 467, 486, 478, 464, 472, 524, 483, 473, 460, 438, 441, 378, 384, 298, 256, 229, 200, 164, 148, 134, 137, 129, 113, 122, 111, 109, 116, 109, 131, 112, 134, 115, 95, 108, 115, 120, 135, 113, 124, 107, 123, 115, 128, 107, 153, 128, 113, 148, 129, 136, 135, 152, 146, 126, 144, 163, 173, 164, 152, 172, 181, 161, 176, 175, 179, 203, 203, 191, 226, 201, 234, 214, 240, 240, 206, 223, 248, 260, 263, 278, 250, 273, 281, 283, 302, 304, 295, 285, 238, 280, 277, 268, 301, 314, 334, 366, 369, 398, 414, 471, 501, 571, 595, 643, 704, 629, 624, 627, 620, 564, 661, 689, 765, 789, 862, 848, 878, 990, 988, 1037, 1127, 1230, 1354, 1474, 1752, 1973, 1806, 1288, 760, 579, 613, 629, 743, 756, 756, 771, 805, 902, 958, 993, 925, 922, 911, 1000, 1243, 1300, 1405, 1386, 1423, 1217, 662, 418, 239, 148, 122, 116, 115, 119, 94, 90, 89, 79, 69, 81, 57, 81, 43, 61, 47, 65, 48, 44, 46, 40, 40, 55, 39, 44, 34, 41, 44, 56, 45, 33, 33, 33, 40, 28, 28, 30, 23, 27, 20, 22, 14, 15, 9, 7, 8, 5, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

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