on open qxpFiles 
	 
	set theTarget to choose folder with prompt "Zielordner für PDF-Dateien wählen:" 
	 
	 
	repeat with aFile in qxpFiles 
		set filePath to aFile as alias 
		 
		tell application "QuarkXPress" 
			activate 
			open filePath 
			set docName to name of document 1 
			set theProject to object reference of project 1 
			tell theProject 
				repeat with i from 1 to count of layout space 
					try 
						with timeout of 180 seconds -- = 3 Minuten 
							export layout space i in ((theTarget as string) & docName & "_" & name of layout space i & ".pdf") as "PDF" PDF output style "MeinPdfAusgabeStil" --<<hier Deinen Ausgabestil einfügen 
						end timeout 
					end try 
				end repeat 
			end tell 
			close document docName without saving 
		end tell 
	end repeat 
	 
end open 

tell application "QuarkXPress" 
	activate 
	tell document 1 
		set theLayerNames to name of every layer 
		--visible false to first item of list theLayerNames 
		set visible of layer (item 1 of theLayerNames) to false 
	end tell 
end tell 

on open qxpFiles 
	 
	set theTarget to choose folder with prompt "Zielordner für PDF-Dateien wählen:" 
	 
	 
	repeat with aFile in qxpFiles 
		set filePath to aFile as alias 
		tell application "QuarkXPress_8_1_6_2" 
			activate 
			open filePath 
			set docName to name of document 1 
			set theProject to object reference of project 1 
			 
			tell application "QuarkXPress_8_1_6_2" -- 1. Durchgang Ebenen ein/ausblenden 
				activate 
				tell document 1 
					set theLayerNames to name of every layer --visible false to first item of list theLayerNames  
					set visible of layer (item 1 of theLayerNames) to false --EbeneA ausblenden 
					set visible of layer (item 2 of theLayerNames) to true --EbeneB einblenden 
					set visible of layer (item 3 of theLayerNames) to false --EbeneC ausblenden 
					set visible of layer (item 4 of theLayerNames) to true --EbeneD einblenden 
				end tell 
			end tell 
			 
			tell theProject 
				repeat with i from 1 to count of layout space 
					try 
						with timeout of 180 seconds -- = 3 Minuten  
							export layout space i in ((theTarget as string) & docName & "_ebeneA.pdf") as "PDF" PDF output style "PDF_Ausgabestil --<<hier Deinen Ausgabestil einfügen  
						end timeout 
					end try 
				end repeat 
			end tell 
			 
			tell application "QuarkXPress_8_1_6_2" -- 2. Durchgang Ebenen ein/ausblenden 
				activate 
				tell document 1 
					set theLayerNames to name of every layer --visible false to first item of list theLayerNames  
					set visible of layer (item 1 of theLayerNames) to true --EbeneA einblenden 
					set visible of layer (item 2 of theLayerNames) to false --EbeneB ausblenden 
					set visible of layer (item 3 of theLayerNames) to false --EbeneC ausblenden 
					set visible of layer (item 4 of theLayerNames) to true --EbeneD einblenden 
				end tell 
			end tell 
			 
			tell theProject 
				repeat with i from 1 to count of layout space 
					try 
						with timeout of 180 seconds -- = 3 Minuten  
							export layout space i in ((theTarget as string) & docName & "_ebeneB.pdf") as "PDF" PDF output style "PDF_Ausgabestil" --<<hier Deinen Ausgabestil einfügen  
						end timeout 
					end try 
				end repeat 
			end tell 
			 
			tell application "QuarkXPress_8_1_6_2" -- 3. Durchgang Ebenen ein/ausblenden 
				activate 
				tell document 1 
					set theLayerNames to name of every layer --visible false to first item of list theLayerNames  
					set visible of layer (item 1 of theLayerNames) to true --EbeneA einblenden 
					set visible of layer (item 2 of theLayerNames) to true --EbeneB einblenden 
					set visible of layer (item 3 of theLayerNames) to false --EbeneC ausblenden 
					set visible of layer (item 4 of theLayerNames) to true --EbeneD einblenden 
				end tell 
			end tell 
			 
			close document docName with saving 
		end tell 
	end repeat 
	 
end open 

--innerhalb des tell-blocks 
set docName to my getName(name of document 1 ) 
--außerhalb des RestScripts 
on getName(theName) 
	set {TID, text item delimiters} to {text item delimiters, "."} 
	if ((count of text items of theName) is greater than 1) and (text item -1 of theName is "qxp") then 
		set theName to ((text items 1 thru -2 of theName) as text) 
		return theName 
	else 
		return theName 
	end if 
	set AppleScript's text item delimiters to TID 
end getName