I know the basics of Applescript. I need help fixing this script. If there are errors due to missing links, modified links, overset text, or missing or substituted fonts, it needs to close the Indesign file & continue on to the next document but currently the script is creating PDFs for all files with or without errors. For example if I add a line to close the file (close myDocument saving no) after checking for missing links the script still continues with the other block to check for overset txt, fonts but the file is already closed. I'm stuck, making no progress for over a 3weeks because I just don't know how to do what I want to do. I really appreciate any help you will be able to provide.
---Indesign file names must have minimun 2 underscores ei: xxx_1_000.indd
set source_folder to choose file of type "IDdD" with prompt "Select the InDesign files to export as single PDFs" with multiple selections allowed without invisibles
tell application "Finder" to set theFiles to every item of source_folder
set the_choice to {"Smallest File Size", "High Quality Print", "PDF/X-1a", "Press Quality"}
set the_choiceFav to choose from list the_choice with title "PDF Job Options" with prompt "Select a PDF Job Option" default items "Smallest File Size"
if the_choiceFav is false then error number -128 (* user cancelled *)
set myPDFpreset to item 1 of the_choiceFav
repeat with oneFile in theFiles
tell application id "com.adobe.indesign"
my setUserInteractionLevel() -- no indesign messages
activate
set myDocument to open (oneFile as alias)
tell myDocument
set DocName to name
set {Errors, missingLinks, ModifiedLinks, OverSetTx, FontsMissing, SubFonts} to {false, false, false, false, false, false} --find Missing Links, Modified links, Overset txt, Fonts missing, Substituted fonts
set Errors to true
--Check Missing links +++++++++++++++++
set allLinks to (every link whose status is link out of date)
if (count of ((links whose status contains link missing) as list)) > 0 then
set {Errors, MissLinks} to {true, true}
my resetUserInteractionLevel()
display alert "Missing Links found." buttons {"See Batch Errors Log.txt file on your desktop"} as critical cancel button 1 giving up after 2
--Check Mofidified links +++++++++++
else if (count of ((links whose status contains link out of date) as list)) > 0 then
my resetUserInteractionLevel()
set {Errors, ModifiedLinks} to {true, true}
display alert "Update Modified Links." buttons {"See Batch Errors Log.txt file on your desktop"} as critical cancel button 1 giving up after 2
--else DO NOT CREATE PDF. Close the Indesign file & continue with the next file
end if
--Check boxes with overset text+++++++++++++++++
set thereIsTextOverflow to overflows of parent story of every text frame contains true --and layer's visible is true --just check visible layers
if thereIsTextOverflow then
my resetUserInteractionLevel()
set {Errors, OverSetTx} to {true, true}
display alert "Overset text boxes found." & return & return & DocName & return & return & "TIP: Turn on hidden layers and look for overset text boxes." & return buttons {"See Batch Errors Log.txt file on your desktop"} as critical cancel button 1 giving up after 3
-- else DO NOT CREATE PDF. Close the Indesign file & continue with the next file
end if
--check Missing Fonts++++++++++++++++++++++
set font_list to status of every font -- constants list
if font_list contains not available then -- constant comparsion
my resetUserInteractionLevel()
set {Errors, FontMiss} to {true, true}
display alert "Missing Fonts found." & return & return & DocName & return buttons {"See Batch Errors Log.txt file on your desktop"} as critical cancel button 1 giving up after 3
--check substituted fonts
else if font_list contains substituted then
my resetUserInteractionLevel()
set {Errors, SubFonts} to {true, true}
display alert "A Font has been substituted or it is missing." & return & return & DocName & return buttons {"See Batch Errors Log.txt file on your desktop"} as critical cancel button 1 giving up after 3
--else DO NOT CREATE PDF. Close the Indesign file & continue with the next file
end if
--start xport
set source_folder to file path of myDocument
set theName to name of myDocument
set text item delimiters of AppleScript to {"_"}
set theShortName to text 1 thru text item -2 of theName
--text 1 thru text item -2 is every character from the first character to the second to last text item
set text item delimiters of AppleScript to ""
tell application "Finder" --export PDF to this folder
if (exists folder "PDF" of folder source_folder) is false then
make folder at source_folder with properties {name:"PDF"}
end if
end tell
tell application id "com.adobe.indesign"
set pagesCount to count pages of myDocument
tell me to set progress total steps to pagesCount --progress total steps. the number of steps needed to complete this task.
repeat with x from 1 to pagesCount
tell me to set progress description to "Page " & x & " of " & pagesCount --progress description. Text describing this task.
tell me to activate
set thePageName to name of page x of myDocument
set page range of PDF export preferences to thePageName
--section number must have 3 digits
set threeDigitPageName to text -3 thru -1 of ("00" & thePageName)
--text -3 thru -1 are the last 3 characters*)
--set theFilePath to source_folder & "PDF:" & theShortName & "_" & threeDigitPageName & "_" & the_PROOF_choiceFav & ".pdf" as string
set theFilePath to source_folder & "PDF:" & theShortName & "_" & threeDigitPageName & "_" & ".pdf" as string
--EXPORT PDF
tell myDocument
with timeout of 600 seconds --10mins
export format PDF type to theFilePath using myPDFpreset without showing options
repeat -- repeat until current export is finished
try
delay 1
alias theFilePath
exit repeat
end try
end repeat
end timeout
end tell
tell me to set progress completed steps to x --progress completed steps. The number of steps of the task that have been completed so far.
end repeat -- with x from 1
end tell
----++++++++++++++++++++
close myDocument saving no
my resetUserInteractionLevel() --show ID alerts messages
end tell --my Document
end tell --app id
end repeat --w oneFile
----+++++++++++++++
on setUserInteractionLevel() --hide Indesign alerts
tell application id "com.adobe.indesign"
set user interaction level of script preferences to never interact
end tell
end setUserInteractionLevel
on resetUserInteractionLevel() --show Indesign alerts
tell application id "com.adobe.indesign"
set user interaction level of script preferences to interact with all
end tell
end resetUserInteractionLevel
1 Correct answer
11
Replies
AdChoices