facebookで公開済み
#InDesign CS5
#段落スタイル名をドキュメント名＆ランダム文字に変更。
#コマンドクリックで作った段落スタイルの「段落スタイル 1」を適当に変更する為に作成。
tell document 1 of application "Adobe InDesign CS5"
set {a0, a1, a3} to {name of applied paragraph style of selection, name, a7() of me}
set a1 to a1's characters 1 thru -6 & "_" & a3 as Unicode text
set name of applied paragraph style of selection to a1
end tell
on a7()
set {a1, a2} to {{"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}, ""}
repeat 10 times
set a2 to a2 & some item of a1
end repeat
return a2
end a7
