済みません。先にAM66さんが同じことを書いていましたね。
あと、先のスクリプトはalignと書くところをjustifiedと間違って書いていました。
ログを見ながら書くとこうもできますね。
以下スクリプト
----------------------------------------------------------------------------------
tell document 1 of application "Adobe Illustrator"
copy properties of text of text frame 1 to {contents:ai01, justification:ai02, leading:ai03, size:ai04}
copy properties of text font of character 1 of text frame 1 to {family:ai05, style:ai06}
set {ai01, ai03, ai04, ai05, ai06} to {ai01 as Unicode text, ((ai03 as real) & "pt") as Unicode text, ((ai04 as real) & "pt") as Unicode text, ai05 as Unicode text, ai06 as Unicode text}
end tell
tell document 1 of application "Adobe InDesign CS5"
tell (make text frame with properties {geometric bounds:{"0 mm", "130 mm", "15 mm", "240 mm"}, stroke color:swatch "None", fill color:swatch "None"})
set contents to ai01
if ai02 is «constant ****e122» then
set ai07 to center align
else if ai02 is «constant ****e121» then
set ai07 to left align
else if ai02 is «constant ****e123» then
set ai07 to right align
else if ai02 is «constant ****e125» then
set ai07 to left justified
end if
set properties of parent story to {applied font:ai05, point size:ai04, leading:ai03, justification:ai07}
set vertical justification of text frame preferences to center align ---縦方向のそろえ
properties of parent story
fit given frame to content ---フレームをフィットする
end tell ---抜き出した情報を設定していくおわり
end tell
[15736] 小泉 (2013/06/20 Thu 12:54) web