1 Reply Latest reply on May 13, 2008 2:51 AM by sstanleyau

    Help needed with Indesign [AS] script!!!

      This is my second post for my problem.
      Hopefully someone can help me out with the following:

      I have a script to set all graphics to nonprinting, unlock the text frames, group the text frames, move thegroup, and export pfd
      I could use some help to edit the script with the following:

      If a graphic has a certain name: set nonprinting true
      if a frame contains a certain filling (PANTONE bla bla) set nonprinting true
      if any frames are locked - unlock
      group all frames ( text and graphics) except frames with a certain image and a certain filling
      move this group to x..., y...

      It would also be nice if the script could move all docs to the subfolder "Oud" after Indesign has processed these docs
      I'm not familiar with scripting Indesign, so please help me out - I need to edit aprox. 7000 docs!!!

      Here's the script that needs to be chanched:

      set processFolder to choose folder with prompt "Kies een folder met Indd Docs"
      tell application "Finder"
      if not (exists folder "Nieuw" of processFolder) then
      make new folder at processFolder with properties {name:"Nieuw"}
      end if
      if not (exists folder "Oud" of processFolder) then
      make new folder at processFolder with properties {name:"Oud"}
      end if
      if not (exists folder "PDF" of processFolder) then
      make new folder at processFolder with properties {name:"PDF"}
      end if
      if not (exists folder "Error" of processFolder) then
      make new folder at processFolder with properties {name:"Error"}
      end if
      set the destination1_folder to folder "Nieuw" of processFolder as alias
      set the destination2_folder to folder "Oud" of processFolder as alias
      set the destination3_folder to folder "PDF" of processFolder as alias
      set the destination4_folder to folder "Error" of processFolder as alias
      end tell

      tell application "Finder"
      try
      set listFiles to (files of contents of processFolder) as alias list
      on error
      set listFiles to (files of contents of processFolder) as alias as list
      end try
      repeat with thisFile in listFiles


      tell application "Adobe InDesign CS3"
      with timeout of 120 seconds
      activate
      open thisFile
      set myDoc to document 1
      tell myDoc
      try
      set properties of view preferences to {horizontal measurement units:millimeters, vertical measurement units:millimeters, ruler origin:page origin}
      set docName to name
      set transform reference point of layout window 1 to top left anchor
      set nonprinting of all graphics to true
      set locked of every text frame to false
      set myBox to every text frame of page 1
      if (count myBox) > 1 then
      set theGroup to (make group at page 1 with properties {group items:every text frame of page 1})
      move theGroup to {8, 10}
      else
      move myBox to {8, 10}
      end if
      on error the error_message number the error_number
      tell application "Finder" to move thisFile to destination4_folder with replacing
      display dialog "Error: " & the error_number & ". " & the error_message buttons {"OK"} default button 1
      end try
      end tell

      export document 1 format PDF type to (destination3_folder as string) & docName & ".pdf" using PDF export preset "[PDF/X-1a:2001]" without showing options
      save document 1 to (destination1_folder as string) & docName
      close document 1 saving yes

      --tell application "Finder" to move thisFile to destination2_folder with replacing
      end timeout
      end tell
      end repeat
      end tell
      end
        • 1. Re: Help needed with Indesign [AS] script!!!
          sstanleyau Level 4
          On 13/5/08 5:34 PM, "admin jc" <member@adobeforums.com> wrote:<br /><br />> I'm not familiar with scripting Indesign<br /><br />I wonder, perhaps, if you're misunderstanding the nature of this forum. It's<br />here for people to help with particular scripting problems, but not really<br />for people to write your scripts for you. I suspect what you're after might<br />be more appropriately handled by hiring someone to write the script for you.<br /><br />-- <br />Shane Stanley <sstanley@myriad-com.com.au>