fill your pdfPresets in the first two lines. Save as Script. Launch by Spark, buttler ... with keyCommand.
Code could easily be edited as Droplet or Programm ...
--has to be set by user
property myLowres : "presetNameForLowRes"
property myHighres : "presetNameForHighRes"
tell application "Finder"
set myFiles to selection as alias list
end tell
repeat with i from 1 to count of myFiles
set theFile to item i of myFiles
set testFiles to {folder, file creator} of (info for theFile)
if testFiles is equal to {false, "InDn"} then
tell application "Adobe InDesign CS5.5"
set myFile to open theFile
set filePath to file path of myFile
set fileName to name of myFile
set {lrFilePath, hrFilePath} to my getTargetPaths(filePath, fileName)
export myFile format PDF type to lrFilePath using PDF export preset myLowres without showing options
export myFile format PDF type to hrFilePath using PDF export preset myHighres without showing options
close myFile saving no
end tell
end if
end repeat
on getTargetPaths(fileObject, nameString)
set folderPath to fileObject as text
set AppleScript's text item delimiters to {"."}
if (count of text items of nameString) is 1 then
set {lr, hr} to {folderPath & nameString & "_lr.pdf", folderPath & nameString & "_lr.pdf"}
else
set {lr, hr} to {folderPath & (text items 1 thru -2 of nameString) & "_lr.pdf", folderPath & (text items 1 thru -2 of nameString) & "_hr.pdf"}
end if
return {lr, hr}
set AppleScript's text item delimiters to {""}
end getTargetPaths
... and please don't ask me anything about 'Automator'