2 Replies Latest reply on Aug 3, 2008 11:30 PM by Rajeev Kumar MIL

    missing fonts report

    Rajeev Kumar MIL
      Dear All,

      Please see the code below, I am trying to generate package report. But it is not getting generated.

      Please give me some suggestion what to do.

      ---------------

      set source_folder to choose folder with prompt "Select folder containing InDesign Documents"
      tell application "Finder" to set item_list to every item of source_folder
      repeat with this_item in item_list
      set doc_kind to get kind of this_item
      if doc_kind contains "Indesign" then
      tell application "Adobe InDesign CS2"
      set user interaction level of script preferences to never interact
      open this_item
      set DocName to the name of document 1
      tell document 1
      set myfontprop to properties of every font
      set Font_List to {}
      repeat with i from 1 to the number of myfontprop
      set this_font_item to item i of myfontprop
      set myfontname to name of this_font_item as string
      set fontstatus to status of this_font_item as string
      set Font_List to Font_List & fontstatus
      end repeat
      if Font_List contains "not available" then
      my error_report(source_folder, DocName)
      else
      close document 1 saving no
      end if
      end tell
      end tell
      end if
      end repeat

      on error_report(source_folder, DocName)
      tell application "Finder"
      try
      set error_folder to (source_folder as string) & DocName & "_ErrorFolder" as alias
      on error
      tell application "Finder"
      make new folder at source_folder with properties {name:DocName & "_ErrorFolder"}
      set error_folder to (source_folder as string) & DocName & "_ErrorFolder" as alias
      end tell
      end try
      end tell
      tell application "Adobe InDesign CS2"
      tell document 1
      package to error_folder copying fonts no copying linked graphics no copying profiles no updating graphics no ignore preflight errors no creating report yes including hidden layers no
      -- close saving no
      end tell
      end tell
      tell application "Finder"
      --try
      set text_file to (error_folder as string) & "Instruction.txt" as alias
      set the name of text_file to DocName & ".txt"
      --end try
      end tell
      end error_report
      ------------
      thanks in advance....
        • 1. Re: missing fonts report
          sstanleyau Level 4
          On 2/8/08 7:39 PM, "rajeevkumar" <member@adobeforums.com> wrote:<br /><br />> package to error_folder copying fonts no copying linked graphics no copying<br />> profiles no updating graphics no ignore preflight errors no creating report<br />> yes including hidden layers no<br /><br />All those parameters take boolean values, which in AppleScript means true or<br />false, not yes or no. So you need:<br /><br />    package to error_folder copying fonts false copying linked graphics<br />false copying profiles false updating graphics false ignore preflight errors<br />false creating report true including hidden layers false<br /><br />which, when you compile, will change to:<br /><br />    package to error_folder with creating report without copying fonts,<br />copying linked graphics, copying profiles, updating graphics, ignore<br />preflight errors and including hidden layers<br /><br /><br />-- <br />Shane Stanley <sstanley@myriad-com.com.au>
          • 2. Re: missing fonts report
            Rajeev Kumar MIL Level 1
            Hi,

            I checked with this code but, Instruction.txt is not getting created at the Error Folder location. So it unable to find the Instruction.txt file.

            Thanks