(DTPtechNote:1214) [AS Indesign CS] 画像ファイル名をテキストフレームに

[市川せうぞー <anonymous at unknown-host>]

こっちもおうち使い用。
リンク画像のあるグラフィックフレームとテキストフレームを同時に選択して、実行すると画像ファイル名がテキストフレームに入るってもの。

tell application "InDesign CS_J"
	activate
	tell document 1
		set my_every_selection to object reference of selection
		--選択しているのはテキストフレームとグラフィックフレームを1つづつだと想定
		if class of item 1 of my_every_selection = text frame then
			set my_text_frame to object reference of item 1 of my_every_selection
			set my_graphic_frame to object reference of item 2 of my_every_selection
		else
			set my_graphic_frame to object reference of item 1 of my_every_selection
			set my_text_frame to object reference of item 2 of my_every_selection
		end if
		--ファイル名をget
		set my_image to object reference of item 1 of all graphics of my_graphic_frame
		set my_name to (name of item link of my_image) as Unicode text
		set my_name to (characters 1 thru -5 of my_name) as Unicode text
		set contents of my_text_frame to my_name
	end tell
end tell