【AppleScript＋InDesign】InDesignドキュメント上の使用フォントのPDF埋め込み許可を調べる

開かれている最前面のInDesignドキュメント上（配置されたInDesignドキュメントも含む）で使用されているフォントのPDF埋め込み許可を検査して、許可されていないフォントが存在した場合は、フォント名の一覧をダイアログに表示します。

InDesignドキュメント内にInDesignドキュメントが配置されている場合、使用フォントをfontsでまとめて取得すると、配置されているドキュメント上の使用フォントが、なぜかひとつだけ取得されるという不思議な挙動が…。（しかも、このフォントへのプロパティ参照はエラー…。）
ということで、フォント数のみを取得して以下の様な処理で回避。

※使用環境にインストールされていないフォントが使用されている場合などは、デフォルトフォントに置き換えられたりして正常に判定ができませんのでご注意を。

on run
	try
		tell application id "com.adobe.InDesign"
			activate
			if (count of documents) is 0 then error "ドキュメントが開かれていません。"
			
			set no_emb to ""
			tell document 1
				repeat with i from 1 to (count of fonts)
					if (allow PDF embedding of font i is false) then set no_emb to no_emb & "\r・" & (full name native of font i)
				end repeat
			end tell
			
			if (no_emb is "") then
				error "すべての使用フォントのPDF埋め込みが、許可されています。"
			else
				error ("以下のフォントのPDF埋め込みが、許可されていません。" & no_emb)
			end if
		end tell
		
	on error err_txt
		activate
		display dialog err_txt buttons {"OK"} default button 1 giving up after 60 * 10
		return
	end try
end run