on open mgItems 
	 
	set targetFolderPath to (choose folder with prompt "Bitte Ordner für das Verpacken auswählen.") as string 
	 
	tell application id "com.adobe.InDesign" 
		 
		set my_pdf_export to get the name of every PDF export preset 
		set my_pdf_choice to (choose from list my_pdf_export) as string 
		 
	end tell 
	 
	repeat with mgThisItem in mgItems 
		 
		tell application id "com.adobe.InDesign" 
			 
			try 
				 
				open mgThisItem 
				 
				set mgDocName to name of active document 
				 
				set text item delimiters of AppleScript to ".indd" 
				 
				set mgShortName to text item 1 of mgDocName 
				 
				 
				-- set up folder and file references 
				 
				set mgPackageFilePath to targetFolderPath & mgShortName & ":" 
				set mgProofFilePath to mgPackageFilePath & "PDF:" & mgShortName & ".pdf" as string 
				 
				set text item delimiters of AppleScript to "" 
				 
				-- create dat folder, main folder and internal PDF folder; passing in POSIX path, though most everything ele uses HFS paths 
				 
				my createFolders(POSIX path of file (mgPackageFilePath & "PDF:")) 
				 
				set properties of PDF export preferences to properties of PDF export preset my_pdf_choice 
				 
				tell the active document to export format PDF type to mgProofFilePath without showing options 
				 
				tell the active document to export format InDesign markup to mgPackageFilePath & mgShortName & ".idml" 
				 
				tell the active document to package to mgPackageFilePath with copying fonts, ignore preflight errors, copying profiles, updating graphics, including hidden layers, copying linked graphics and creating report 
				 
				close active document saving no 
				 
			on error e 
				 
				display dialog e 
				 
			end try 
			 
		end tell 
		 
		-- delete the instructions file 
		 
		tell application "System Events" 
			 
			try 
				delete file (mgPackageFilePath & "Anleitungen") 
			end try 
			 
			try 
				delete file (mgPackageFilePath & "Anleitungen.txt") 
			end try 
			 
		end tell 
		 
	end repeat 
	 
	tell application id "com.adobe.InDesign" 
		 
		display dialog "PDFs sind erstellt und InDesign Dateien verpackt." 
		 
	end tell 
	 
end open 
 
 
 
on createFolders(pathString) 
	 
	do shell script "mkdir -p " & quoted form of pathString 
	 
end createFolders 

global tmpDesktopPath 
------------------------------------------------------------------------------------------------------------------------------------- 
on Initialize() 
	set my text item delimiters to "" 
	set tmpDesktopPath to (path to desktop) as text 
end Initialize 
 
on Finalize() 
	with timeout of 14400 seconds -- 4 Stunden 
		activate 
		display alert "Fertig" message "Objekt(e) wurde(n) verarbeitet." 
	end timeout 
end Finalize 
 
on ProcessAFileOrFolder(theFile) 
	if (theFile as string) ends with ":" then 
		ScanAFolder(theFile) 
	else 
		processAFile(theFile) 
	end if 
end ProcessAFileOrFolder 
 
on ScanAFolder(theFolder) 
	set fileNames to list folder theFolder without invisibles 
	repeat with aFile in fileNames 
		set theFile to (theFolder as string) & contents of aFile 
		ProcessAFileOrFolder(alias theFile) 
	end repeat 
end ScanAFolder 
 
on open of filesList 
	my Initialize() 
	repeat with aFile in filesList 
		ProcessAFileOrFolder(contents of aFile) 
	end repeat 
	my Finalize() 
end open 
 
on run 
	activate 
	display alert "ACHTUNG!" message "Läuft nur als Droplet. Bitte Objekt(e) auf das Script ziehen." as warning 
end run 
------------------------------------------------------------------------------------------------------------------------------------- 
on processAFile(aFile) 
	set theFile to aFile as string 
	tell application id "com.adobe.InDesign" 
		set user interaction level of script preferences to never interact 
		 
		try 
			close every document 
		end try 
		 
		try 
			open file theFile -- without showing window 
		end try 
		 
		tell document 1 
			-- Liste aller verknüpften Bildpfade holen 
			set filePathList to file path of every link 
			close saving no 
		end tell 
		 
		set user interaction level of script preferences to interact with all 
	end tell 
	 
	-- Bilderordner anlegen 
	set picFolder to my createFolder(my tmpDesktopPath & "Bilder:") 
	 
	-- Dateien kopieren 
	repeat with filePath in filePathList 
		my duplicateFileUnix(filePath, picFolder, true) 
	end repeat 
end processAFile 
------------------------------------------------------------------------------------------------------------------------------------- 
on createFolder(sfolder) 
	try 
		do shell script ("mkdir -p " & quoted form of POSIX path of sfolder) 
		return sfolder 
	on error 
		return false 
	end try 
end createFolder 
------------------------------------------------------------------------------------------------------------------------------------- 
-- with option -p 
-- Cause cp to preserve the following attributes of each source file in the copy: modification time, access time, file flags, file mode, user ID, and group ID, as allowed by permissions.  Access Control Lists (ACLs) and Extended Attributes (EAs), including resource forks, will also be preserved. 
on duplicateFileUnix(theSource, theDest, overwriteVar) 
	log ("*Duplicate File " & theSource & " to " & theDest as string) 
	try 
		if overwriteVar = false then 
			do shell script "cp -Rpn " & (quoted form of (POSIX path of theSource)) & " " & (quoted form of (POSIX path of theDest)) 
		else 
			do shell script "cp -Rp " & (quoted form of (POSIX path of theSource)) & " " & (quoted form of (POSIX path of theDest)) 
		end if 
		tell application "Finder" 
			try 
				update alias (theDest as string) 
			end try 
			if theDest ends with ":" then 
				set tmpName to name of item (theSource as string) as string 
				if exists item (theDest & tmpName as string) then return true 
			else 
				if exists item (theDest as string) then return true 
			end if 
			 
		end tell 
		return false 
	on error 
		return false 
	end try 
end duplicateFileUnix 
-------------------------------------------------------------------------------------------------------------------------------------