tell application “TextEdit”
　　tell text of document 1
　　　　set pCount to (count paragraphs)
　　　　
　　　　repeat with i from 1 to pCount
　　　　　　set aCol to color of paragraph i
　　　　　　if aCol = {65535, 0, 0} then –{r, g, b}
　　　　　　　　set rNum to rNum + 1
　　　　　　end if
　　　　end repeat
　　　　
　　end tell
end tell

return {pCount, rNum}

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

–選択したテキスト、RTF、HTMLから内容を取り出す
on getContentsFromTXT_PDF_HTML(theFile)
　　tell application “TextEdit”
　　　　set myDoc to open theFile
　　　　set theFileContents to the text of myDoc
　　　　close myDoc
　　end tell
　　return theFileContents
end getContentsFromTXT_PDF_HTML

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

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

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

–Text Editで新規ドキュメントを作成してコピーされていたデータをコピー
tell application “TextEdit“
　　set aDoc to make new document
　　activate
end tell

tell application “System Events“
　　tell process “TextEdit“
　　　　keystroke “v“ using {command down}
　　end tell
end tell

–TextEditの書類上から各種情報を取得する
tell application “TextEdit“
　　tell text of aDoc
　　　　set colorList to color of every attribute run
　　　　set fontList to font of every attribute run
　　　　set sizeList to size of every attribute run
　　　　set textList to characters of every attribute run
　　　　
　　　　set itemCount to length of colorList
　　　　
　　　　set contList to {}
　　　　repeat with i from 1 to itemCount
　　　　　　set aRec to {textData:(item i of textList) as string, colorData:item i of colorList, fontData:item i of fontList, sizeData:item i of sizeList}
　　　　　　set the end of contList to aRec
　　　　end repeat
　　end tell
end tell

tell application “TextEdit“
　　tell document 1
　　　　close without saving
　　end tell
end tell

set aDirection to detectTextDirection(textList) of me
–> “vertical” / “horizontal”

set aFontName to contents of item 1 of fontList
set aSize to contents of item 1 of sizeList
set aLineWidth to aSize / 8
set aLineWidth to round aLineWidth rounding up

set aCon to textList as string
set aCon to repChar(aCon, ASCII character 10, “”) of me
set aColor to item 1 of colorList
set rColor to (item 1 of aColor) / 256
set rColor to round rColor rounding down
set gColor to (item 2 of aColor) / 256
set gColor to round gColor rounding down
set bColor to (item 3 of aColor) / 256
set bColor to round bColor rounding down
set colorList to {rColor, gColor, bColor}

makeTextGraphicWithEdgeLine(aCon, aSize, aLineWidth, aDirection, aFontName, colorList) of me

tell application “Keynote“
　　activate
end tell

tell application “System Events“
　　tell process “Keynote“
　　　　keystroke “v“ using {command down}
　　end tell
end tell

–以下、サブルーチン

–Attribute runsのテキストデータの並びから、Keynote上で縦書き/横書きだったかの判定を行う
on detectTextDirection(aList)
　　set normCount to 0
　　set retCount to 0
　　log aList
　　repeat with i in aList
　　　　set jj to contents of (item 1 of i)
　　　　set j to id of (contents of jj)
　　　　–display dialog (string id of j)
　　　　if (j = 10) or (j = 13) then
　　　　　　set retCount to retCount + 1
　　　　else
　　　　　　set normCount to normCount + 1
　　　　end if
　　end repeat
　　
　　set vhCalc to (retCount / normCount)
　　
　　if vhCalc > 0.5 then
　　　　return “vertical“
　　else
　　　　return “horizontal“
　　end if
　　
end detectTextDirection

on makeTextGraphicWithEdgeLine(aCon, aSize, aLineWidth, aDirection, aFontName, colorList)
　　copy colorList to {rColor, gColor, bColor}
　　
　　using terms from application “Adobe Illustrator“
　　　　tell application “Adobe Illustrator“
　　　　　　set aDoc to make new document with properties {color space:RGB}
　　　　　　
　　　　　　tell aDoc
　　　　　　　　setOriginToLeftCorner() of me
　　　　　　　　
　　　　　　　　set aGroup to make new group item
　　　　　　　　
　　　　　　　　set aFrame1 to make new text frame at the end of aGroup
　　　　　　　　tell aFrame1
　　　　　　　　　　set position to {0, 0}
　　　　　　　　　　set contents to aCon
　　　　　　　　　　if aDirection = “vertical“ then
　　　　　　　　　　　　set text orientation to vertical
　　　　　　　　　　else if aDirection = “horizontal“ then
　　　　　　　　　　　　set text orientation to horizontal
　　　　　　　　　　end if
　　　　　　　　　　tell every character
　　　　　　　　　　　　set size to aSize
　　　　　　　　　　　　–set font to aFontName
　　　　　　　　　　　　set stroke weight to aLineWidth –ふちどり線の太さ
　　　　　　　　　　　　set stroke color to {red:255, green:255, blue:255} –白
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　set aFrame2 to make new text frame at the beginning of aGroup
　　　　　　　　tell aFrame2
　　　　　　　　　　set contents to aCon
　　　　　　　　　　set position to {0, 0}
　　　　　　　　　　if aDirection = “vertical“ then
　　　　　　　　　　　　set text orientation to vertical
　　　　　　　　　　else if aDirection = “horizontal“ then
　　　　　　　　　　　　set text orientation to horizontal
　　　　　　　　　　end if
　　　　　　　　　　tell every character
　　　　　　　　　　　　set size to aSize
　　　　　　　　　　　　–set font to aFontName
　　　　　　　　　　　　set stroke weight to 0.0
　　　　　　　　　　　　set fill color to {red:rColor, green:gColor, blue:bColor}
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　
　　　　　　　　set selection to aGroup
　　　　　　　　copy –ふちどり文字をクリップボードにコピー
　　　　　　　　
　　　　　　　　close saving no –Illustratorの書類を破棄する
　　　　　　end tell
　　　　end tell
　　end using terms from
end makeTextGraphicWithEdgeLine

–Illustratorの原点座標を変更する
on setOriginToLeftCorner()
　　using terms from application “Adobe Illustrator“
　　　　tell application “Adobe Illustrator“
　　　　　　tell document 1
　　　　　　　　set aHeight to height
　　　　　　　　set ruler origin to {0, aHeight}
　　　　　　end tell
　　　　end tell
　　end using terms from
end setOriginToLeftCorner

–Written By Philip Aker
–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

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

contList

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

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