EXCELの行をコピーしIllustratorの選択した小組に流し込みます。テキストフレームがエリアテキストの場合はオーバーフローすれば収まるように長体がかかります。改行を含む文字の場合の長体処理はしていません。
小組のテキストフレーム1つ1つにIllustratorのレイヤーパレットで"A","B","C","D"・・・と名前をあらかじめつけておきます。
※レイヤーに名前を付けるようにレイヤーパレット内のテキストをダブルクリックして名前を付ける事が出来ます。
このテキストフレームがEXCELの列の"A","B","C","D"・・・と関連づきます。
※EXCELのA列の文字がIllustratorの"A"と名前を付けたテキストフレームに流し込まれます。
準備が終わったらIllustratorの小組を選択し、EXCELの行をコピーしてからスクリプトを実行してみてください。
global textFlameList
set myRec to the clipboard
set textFlameList to {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}
set OriginalDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to {tab}
set myRec to text items of myRec
tell application "Adobe Illustrator"
tell document 1
set mySele to selection
repeat with selObj in mySele
my getTextFrameIndex(selObj)
end repeat
repeat with N from 1 to count myRec
my NAGASIKOMI(item N of textFlameList, item N of myRec)
end repeat
end tell
end tell
set AppleScript's text item delimiters to OriginalDelimiters
on getTextFrameIndex(selObj)
tell application "Adobe Illustrator"
if class of selObj is group item then
set myCount to count page items of selObj
repeat with N from 1 to myCount
my getTextFrameIndex(page item N of selObj)
end repeat
else if class of selObj is text frame then
set myName to name of selObj
set itemNum to my getItemNum(myName)
if itemNum > 0 then
set item itemNum of textFlameList to selObj
end if
end if
end tell
end getTextFrameIndex
on getItemNum(myName)
return offset of myName in "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
end getItemNum
on NAGASIKOMI(targetTextFrame, inputStr)
if targetTextFrame is 0 then
return
end if
tell application "Adobe Illustrator"
set contents of targetTextFrame to inputStr
if kind of targetTextFrame is area text then
if my overflow(targetTextFrame) is true then
set mySCL to horizontal scale of paragraph 1 of targetTextFrame
my choutai(targetTextFrame, mySCL)
end if
end if
end tell
end NAGASIKOMI
on choutai(targetTextFrame, mySCL)
set mySCL to mySCL - 3
tell application "Adobe Illustrator"
set horizontal scale of paragraph 1 of targetTextFrame to mySCL
end tell
if my overflow(targetTextFrame) is true then
my choutai(targetTextFrame, mySCL)
end if
end choutai
on overflow(tFrame)
set OriginalDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to ""
tell application "Adobe Illustrator"
set myLastP to (contents of every paragraph of tFrame) as string
set myLastL to (contents of every line of tFrame) as string
set AppleScript's text item delimiters to OriginalDelimiters
if myLastP is not myLastL then
set AppleScript's text item delimiters to OriginalDelimiters
return true
else
set AppleScript's text item delimiters to OriginalDelimiters
return false
end if
end tell
end overflow
