on open dropped 
	try 
		set thefileList to list files of dropped 
	on error errText number errNo 
		display alert (errNo as text) message errText 
	end try 
	 
	set aFolder to ((path to desktop as text) & "Codierte_PDF:") 
	set TmpTxt to ((path to desktop as string) & "Tmp.txt") 
	 
	do shell script "mkdir -p" & space & quoted form of POSIX path of aFolder 
	 
	repeat with i from 1 to count of thefileList 
		try 
			set MyFile to item i of thefileList 
			do shell script "/usr/local/bin/pdftotext " & quoted form of POSIX path of (MyFile as text) & " " & quoted form of POSIX path of TmpTxt 
			 
			set PdfText to read file TmpTxt 
			 
			set {TID, text item delimiters} to {text item delimiters, "<Codierung>"} 
			set Codierung to (text item 2 of PdfText) 
			set TID to AppleScript's text item delimiters 
			 
			tell application "Finder" 
				duplicate file MyFile to folder aFolder with replacing 
				set name of file (aFolder & name of file MyFile) to Codierung & ".pdf" 
				delete file TmpTxt 
			end tell 
		on error errText number errNo 
			display alert (errNo as text) message errText 
		end try 
	end repeat 
end open 

@olaflist:  
Ich glaube nicht, dass die Lösung mir hilft, denn auf der Homepage habe ich keinen Hinweis gefunden, die exportierten PDFs automatisch zu benennen. Es ist lediglich von einer "Infoleiste" die Rede, die aber nur per Drucken und bei der PS-Ausgabe funktioniert. Ich möchte aber PDFs exportieren. Trotzdem danke für den Hinweis. 

global aFolder 
 
on open these_items 
	set aFolder to ((path to desktop as text) & "Codierte_PDF:") 
	 
	do shell script "mkdir -p" & space & quoted form of POSIX path of aFolder 
	 
	 
	repeat with i from 1 to the count of these_items 
		set this_item to (item i of these_items) 
		set the item_info to info for this_item 
		if folder of the item_info is true then 
			process_folder(this_item) 
		else 
			process_item(this_item) 
		end if 
	end repeat 
	 
end open 
 
on process_folder(this_folder) 
	set these_items to list folder this_folder without invisibles 
	repeat with i from 1 to the count of these_items 
		set this_item to alias ((this_folder as text) & (item i of these_items)) 
		set the item_info to info for this_item 
		if folder of the item_info is true then 
			process_folder(this_item) 
		else 
			process_item(this_item) 
		end if 
	end repeat 
end process_folder 
 
on process_item(this_item) 
	try 
		set TmpTxt to ((path to desktop as string) & "Tmp.txt") 
		 
		do shell script "/usr/local/bin/pdftotext " & quoted form of POSIX path of (this_item as text) & " " & quoted form of POSIX path of TmpTxt 
		 
		set PdfText to read file TmpTxt 
		 
		set {TID, text item delimiters} to {text item delimiters, "<Codierung>"} 
		set Codierung to (text item 2 of PdfText) 
		set AppleScript's text item delimiters to TID 
		 
		tell application "Finder" 
			duplicate file this_item to folder aFolder with replacing 
			set name of file (aFolder & name of file this_item) to Codierung & ".pdf" 
			delete file TmpTxt 
			 
		end tell 
	on error errText number errNo 
		display alert (errNo as text) message errText 
	end try 
end process_item