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 

tell application "QuarkXPress" 
	set CurrentDoc to front document 
	tell CurrentDoc 
		set _picList to {} 
		try 
			set _picList to object reference of every image whose missing = true or modified = true 
		end try 
		if _picList is {} then display dialog "Alle Bilder olé" 
	end tell 
end tell 

on open qxpDateien 
	 
	set ZielOrdner to choose folder with prompt "Zielordner für PDF-Dateien wählen:" 
	 
	repeat with aFile in qxpDateien 
		set DateiPfad to aFile as alias 
		try 
			tell application "QuarkXPress 8 - EU77132517777" 
				activate 
				open DateiPfad 
				set DokuName to name of document 1 
				set dasProjekt to object reference of project 1 
				 
				 
				--Textkürzungsvariable 
				set DokuName to my getName(name of document 1) 
				 
				-- 1. Durchgang Ebenen ein/ausblenden				 
				tell application "QuarkXPress 8 - EU77132517777" 
					activate 
					tell document 1 
						set visible of every layer to false --alle Ebenen ausblenden  
						set visible of layer "A_Ebene" to false --A_Ebene ausblenden 
						set visible of layer "B_Ebene" to true --B_Ebene einblenden 
						set visible of layer "C_Ebene" to false --C_Ebene ausblenden 
						set visible of layer "Standard" to true --Standard einblenden 
						 
					end tell 
				end tell 
				tell dasProjekt 
					repeat with i from 1 to count of layout space 
						try 
							with timeout of 180 seconds -- = 3 Minuten  
								export layout space i in ((ZielOrdner as string) & DokuName & "_n.pdf") as "PDF" PDF output style "ZZ_Ausgabestil" --<<hier Deinen Ausgabestil einfügen  
							end timeout 
						end try 
					end repeat 
				end tell 
				 
				-- 2. Durchgang Ebenen ein/ausblenden 
				tell application "QuarkXPress 8 - EU77132517777" 
					activate 
					tell document 1 
						set visible of layer "A_Ebene" to true --A_Ebene einblenden 
						set visible of layer "B_Ebene" to false --B_Ebene ausblenden 
						set visible of layer "C_Ebene" to false --C_Ebene ausblenden 
						set visible of layer "Standard" to true --Standard einblenden 
					end tell 
				end tell 
				 
				tell dasProjekt 
					repeat with i from 1 to count of layout space 
						try 
							with timeout of 180 seconds -- = 3 Minuten  
								export layout space i in ((ZielOrdner as string) & DokuName & "_p.pdf") as "PDF" PDF output style "ZZ_Ausgabestil" --<<hier Deinen Ausgabestil einfügen  
							end timeout 
						end try 
					end repeat 
				end tell 
				 
				-- 3. Durchgang Ebenen ein/ausblenden 
				tell application "QuarkXPress 8 - EU77132517777" 
					activate 
					tell document 1 
						set visible of layer "A_Ebene" to true --A_Ebene einblenden 
						set visible of layer "B_Ebene" to true --B_Ebene einblenden 
						set visible of layer "C_Ebene" to false --C_Ebene ausblenden 
						set visible of layer "Standard" to true --Standard einblenden 
					end tell 
				end tell 
				 
				close front document without saving 
				 
			end tell 
		end try 
	end repeat 
end open 
 
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 

--Beispiel 
set theFile to choose file 
tell application "finder" to set label index of theFile to 2 

set _control to my _controlLinks({"Standard", "D_Ebene", "C_Ebene"}) --Die Ebenen: Achtung hier wird eine {Liste } übergeben! 
--_control = false gleich missing or modified link in einer der Ebenen 
 
on _controlLinks(_layerList) 
	set ctrList to {} 
	tell application "QuarkXPress" 
		repeat with i from 1 to count of _layerList 
			set _layerName to item i of _layerList 
			try 
				set _picList to ((object reference of every image of every picture box of layer _layerName of front document)) 
				 
				repeat with aPic from 1 to count of _picList 
					set thePic to item aPic of _picList 
					if missing of thePic is true or modifies of thePic is true then 
						set end of ctrList to true 
						exit repeat 
					end if 
				end repeat 
			end try 
		end repeat 
	end tell 
	 
	if (count of ctrList) is greater than 0 then 
		return false -- =missing or modified link in einer der Ebenen des Durchgangs 
	else 
		return true 
	end if 
	 
end _controlLinks 

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_v7" 
			activate 
			open filePath 
			set docName to name of document 1 
			set theProject to object reference of project 1 
			set docName to my getName(name of document 1) 
			 
			--Bildprüfung 
			tell application "QuarkXPress_8_1_6_2_v7" 
				set _Pruefung to my _PruefungEbenen({"A_Ebene", "B_Ebene"}) --Die Ebenen: Achtung hier wird eine {Liste } übergeben!  
				--_Pruefung = false gleich missing or modified link in einer der Ebenen  
				if _Pruefung is false then tell application "Finder" 
					set label index of aFile to 2 
				end tell 
				 
			end tell 
			 
			tell application "QuarkXPress_8_1_6_2_v7" -- 1. Durchgang Ebenen ein/ausblenden 
				activate 
				tell document 1 
					set visible of every layer to false --alle Ebenen ausblenden  
					set visible of layer "A_Ebene" to false --Text_pos ausblenden 
					set visible of layer "B_Ebene" to true --Text_neg einblenden 
					set visible of layer "C_Ebene" to false --C_Ebene ausblenden 
					set visible of layer "Standard" to true --Standard 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 & "_n.pdf" as "PDF" PDF output style "ZZ_Ausgabestil" --<<hier Deinen Ausgabestil einfügen  
						end timeout 
					end try 
				end repeat 
			end tell 
			 
			tell application "QuarkXPress_8_1_6_2_v7" -- 2. Durchgang Ebenen ein/ausblenden 
				activate 
				tell document 1 
					set visible of layer "A_Ebene" to true --Text_pos einblenden 
					set visible of layer "B_Ebene" to false --Text_neg ausblenden 
					set visible of layer "C_Ebene" to false --C_Ebene ausblenden 
					set visible of layer "Standard" to true --Standard 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 & "_p.pdf") as "PDF" PDF output style "ZZ_Ausgabestil" --<<hier Deinen Ausgabestil einfügen  
						end timeout 
					end try 
				end repeat 
			end tell 
			 
			tell application "QuarkXPress_8_1_6_2_v7" -- 3. Durchgang Ebenen ein/ausblenden 
				activate 
				tell document 1 
					set visible of layer "A_Ebene" to true --Text_pos einblenden 
					set visible of layer "B_Ebene" to true --Text_neg einblenden 
					set visible of layer "C_Ebene" to false --C_Ebene ausblenden 
					set visible of layer "Standard" to true --Standard einblenden 
				end tell 
			end tell 
			 
			close front document without saving 
		end tell 
	end repeat 
	 
end open 
 
--Namenskürzung-Routine 
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 
 
--Bildcheck-Routine 
on _PruefungEbenen(_EbenenListe) 
	set KontrollListe to {} 
	tell application "QuarkXPress_8_1_6_2_v7" 
		repeat with i from 1 to count of _EbenenListe 
			set _EbenenName to item i of _EbenenListe 
			try 
				set _C_EbeneListe to ((object reference of every image of every picture box of layer _EbenenName of front document)) 
				 
				repeat with einBild from 1 to count of _C_EbeneListe 
					set dasBild to item einBild of _C_EbeneListe 
					if missing of dasBild is true or modified of dasBild is true then 
						set end of KontrollListe to true 
						exit repeat 
					end if 
				end repeat 
			end try 
		end repeat 
	end tell 
	 
	if (count of KontrollListe) is greater than 0 then 
		return false -- =missing or modified link in einer der Ebenen des Durchgangs  
	else 
		return true 
	end if 
	 
end _PruefungEbenen 

if missing of thePic is true or modifies of thePic is true then 

if missing of thePic is true or modified of thePic is true then