tell application "Adobe InDesign CS5"
if (count document) = 0 then
activate
display dialog "ドキュメントを開いてください。" & return & return buttons {"OK"} default button 1 giving up after 55 with icon 0
return
end if
tell document 1
set allFonts to fonts
--set ATCFonts to composite fonts
--font type > ATC > Adobe Type Composer
set myText to ""
repeat with i from 1 to count allFonts
set FontProperties to properties of font i
set myText to myText & (my fontInfo(FontProperties) as Unicode text) & return & return
end repeat
end tell
end tell
tell application "TextEdit"
make new document
set name of front window to "ドキュメントのフォント情報一覧"
set text of front document to myText as Unicode text
--set size of every word of document 1 to 13
activate
end tell
on fontInfo(FontProperties)
tell application "Adobe InDesign CS5"
set infotext to "" & return
set infotext to infotext & name of FontProperties & return
set infotext to infotext & "----------------------------------------------------------------------------------------------" & return
try
set infotext to infotext & "allow editable embedding：" & allow editable embedding of FontProperties & return
end try
try
set infotext to infotext & "allow outlines：" & allow outlines of FontProperties & return
end try
try
set infotext to infotext & "allow PDF embedding：" & allow PDF embedding of FontProperties & return
end try
try
set infotext to infotext & "allow printing：" & allow printing of FontProperties & return
end try
try
set infotext to infotext & "font family：" & font family of FontProperties & return
end try
try
set infotext to infotext & "font style name：" & font style name of FontProperties & return
end try
try
set infotext to infotext & "font style name native：" & font style name native of FontProperties & return
end try
try
set infotext to infotext & "font type：" & font type of FontProperties & return
end try
try
set infotext to infotext & "full name：" & full name of FontProperties & return
end try
try
set infotext to infotext & "full name native：" & full name native of FontProperties & return
end try
try
set infotext to infotext & "index：" & index of FontProperties & return
end try
try
set infotext to infotext & "location：" & location of FontProperties & return
end try
try
set infotext to infotext & "name：" & name of FontProperties & return
end try
--try
--set infotext to infotext & "object reference：" & name of (object reference of FontProperties) & return
--end try
try
set infotext to infotext & "ordering：" & ordering of FontProperties & return
end try
--try
--set infotext to infotext & "parent：" & name of parent of FontProperties & return
--end try
try
set infotext to infotext & "platform name：" & platform name of FontProperties & return
end try
try
set infotext to infotext & "PostScript name：" & PostScript name of FontProperties & return
end try
try
set infotext to infotext & "registry：" & registry of FontProperties & return
end try
try
set infotext to infotext & "restricted printing：" & restricted printing of FontProperties & return
end try
try
set infotext to infotext & "status：" & status of FontProperties & return
end try
try
set infotext to infotext & "version：" & version of FontProperties & return
end try
try
set infotext to infotext & "writing script：" & writing script of FontProperties & return
end try
return infotext
end tell
end fontInfo
