(DTPtechNote:1716) [AppleScript][InDesign CS3]bookの中のドキュメント

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

bookの中の各ドキュメントをフルパスで欲しいときはこうする。というメモ。
なんだかわかんないけれど、ASっぽい書き方じゃない。

tell application "Adobe InDesign CS3"
	if exists book 1 then
		display dialog ((name of book 1) as Unicode text) & "を処理します"
	else
		tell application "Finder"
			activate
			set my_book to choose file with prompt "索引テキストを作成するブックを選んでください" of type {"IDb5"}
		end tell
		open my_book
	end if
	set my_doc to full name of book contents of item 1 of books
end tell