Skript som gör PDF av InDesign

Har använt detta någon gång. Fungerade bra! Var dock ett tag sen men i "version history" ser det ut som den fortfarande uppdateras så det borde fungera nu också.

Här är ett skript man kan spara som app annars. Det är ett modifierat exempelskript till CS4.
Justera sökvägar och pdf-preset efter behag.
Använd som droplet.

on open (theFiles)
	mySetup(theFiles)
end open


on mySetup(theFiles)
	repeat with myFile in theFiles
		mySnippet(myFile)
	end repeat
end mySetup




on mySnippet(myFile)
	tell application "Adobe InDesign CS5"
		set myDocument to open myFile without showing window
		tell me to set text item delimiters to ":"
		set myFileNameWithExt to text item -1 of (myFile as Unicode text)
		tell me to set text item delimiters to "."
		set myFileNameWithoutExt to text item 1 of myFileNameWithExt
		tell me to set text item delimiters to ""
		set myDesktopFolder to (path to desktop) as Unicode text
		set myPDF to myDesktopFolder & (myFileNameWithoutExt & ".pdf")
		set myPreset to "[Högkvalitetsutskrift]"
		tell myDocument
			try
				export format PDF type to myPDF using myPreset without showing options
			on error err
				tell me to display dialog err
			end try
			close saving no
		end tell
	end tell
end mySnippet

Vilket tips var det ni fick att fungera?