[AS CS3] Getting fonts of placed InDd docs (imported pages, or graphics)

Question

I need to get the status of fonts that are in InDd documents placed inside another InDd document. I can see the fonts in the "Find Font" window, and it shows me if the font is OK or missing. How would I get that information via script?
Opening all the child documents is not really an option.
Thanks,
Chris

Answer 1

I got similar results when I tried with a slightly more complex document<br />than before. Assuming the count is correct, and that all you want to know is<br />whether any are missing, you could get the count, loop through asking for<br />the names by index, and then check whether all the names are unique.<br /><br />Something like this:<br /><br />tell application "Adobe InDesign CS3"<br />    set n to count of fonts of document 1 -- assume reliable<br />    set theFonts to fonts of document 1 -- assume unreliable<br />    if (count of theFonts) is not n then -- mismatch<br />        set fontNames to {}<br />        repeat with i from 1 to n<br />            set end of fontNames to name of font i of document 1<br />        end repeat<br />        -- see if font names are duplicated<br />        repeat with i from 1 to (n - 1)<br />            set oneFont to item 1 of fontNames<br />            set fontNames to rest of fontNames<br />            if fontNames contains oneFont then<br />                -- there's a duplicate<br />                set fontProblem to true<br />                exit repeat<br />            end if<br />            if i = n - 1 then<br />                -- no duplicates found<br />                set fontProblem to false<br />            end if<br />        end repeat<br />    else<br />        -- counts match, so all is well<br />        set fontProblem to true<br />    end if<br />end tell<br />return fontProblem<br /><br />-- <br />Shane Stanley <[email protected]><br />AppleScript Pro Sessions <a href=http://scriptingmatters.com/aspro>