set quellEbene to "Standard" -- hier den Namen der Quellebene eintragen 
set zielEbene to "Text dt" -- hier den der Zielebene 
set newColor to "Text dt" -- und den der Sonderfarbe für den verschobenen Text 
 
tell document 1 of application "QuarkXPress 6.5" 
	repeat with i from (count of text boxes of layer quellEbene) to 1 by -1 
		-- so bleibt die Stapelreihenfolge erhalten 
		-- Rahmen verschieben 
		move text box i of layer quellEbene to beginning of layer zielEbene 
	end repeat 
	-- Texte umfärben 
	set color of text 1 of every text box of layer zielEbene to newColor 
end tell 

property quellEbene : "Text dt" -- hier den Namen der Quellebene eintragen 
property zielEbene : "Standard" -- hier den der Zielebene 
property newColor : "Text dt" -- und den der Sonderfarbe für den verschobenen Text 
property startPage : "1" -- mit dieser Seite soll das Skript beginnen 
property endPage : "50" -- mit dieser Seiten soll das Skript aufhören 
 
global cntBoxes 
 
tell document 1 of application "QuarkXPress 6.5" 
	activate 
	try 
		set cntBoxes to do script {changeLevel} 
		if (count of cntBoxes) = 2 then 
			error (item 1 of cntBoxes) number (item 2 of cntBoxes) 
		else 
			display dialog "Fertig." & return & return & "Es wurden " & cntBoxes & " Textrahmen von Ebene ›" & quellEbene & "‹ auf Ebene ›" & zielEbene & "‹ verschoben." & return & "Das Dokument wurde gesichert." buttons "OK" default button 1 with icon 0 
		end if 
	on error errmsg number errnum 
		if errnum is not -128 then 
			display dialog errmsg & " 
[" & errnum & "]" buttons "OK" default button 1 with icon 0 
		end if 
		return 
	end try 
	 
end tell 
 
script changeLevel 
	tell document 1 of application "QuarkXPress 6.5" 
		try 
			set cntBoxes to 0 
			repeat with i from startPage to endPage 
				tell page i 
					repeat with i from (count of text boxes of layer quellEbene) to 1 by -1 
						-- so bleibt die Stapelreihenfolge erhalten 
						-- Rahmen verschieben 
						move text box i of layer quellEbene to beginning of layer zielEbene 
						set cntBoxes to cntBoxes + 1 
					end repeat 
					-- Texte umfärben 
					set color of text 1 of every text box of layer zielEbene to newColor 
					-- delete every text box of layer quellEbene 
				end tell -- Seite 
			end repeat -- Seiten durcharbeiten 
			save 
			return {cntBoxes} 
		on error errmsg number errnum 
			return {errmsg, errnum} 
		end try 
	end tell 
end script 

property quellEbene : "Standard" -- hier den Namen der Quellebene eintragen 
property zielEbene : "textebene" -- hier den der Zielebene 
property newColor : "textcolor" -- und den der Sonderfarbe für den verschobenen Text 
 
global movedBoxes 
 
tell document 1 of application "QuarkXPress" 
	activate 
	try 
		set movedBoxes to do script {changeLevel} 
		if (count of movedBoxes) = 2 then 
			error (item 1 of movedBoxes) number (item 2 of movedBoxes) 
		else 
			display dialog "Fertig." & return & return & "Es wurden " & movedBoxes & " Textrahmen von Ebene ›" & quellEbene & "‹ auf Ebene ›" & zielEbene & "‹ verschoben." & return & "Das Dokument wurde gesichert." buttons "OK" default button 1 with icon 0 
		end if 
	on error errmsg number errnum 
		if errnum is not -128 then 
			display dialog errmsg & " 
[" & errnum & "]" buttons "OK" default button 1 with icon 0 
		end if 
		return 
	end try 
end tell 
 
script changeLevel 
	tell document 1 of application "QuarkXPress" 
		try 
			set movedBoxes to 0 
			repeat with i from 1 to count of pages 
				tell page i 
					set cntBoxes to count of text boxes of layer quellEbene 
					-- ein Ebenenwechsel soll nur stattfinden, wenn es mindestens einen Textrahmen gibt 
					if (cntBoxes is greater than 0) then 
						repeat with m from cntBoxes to 1 by -1 
							-- so bleibt die Stapelreihenfolge erhalten 
							-- Rahmen verschieben 
							move text box m of layer quellEbene to beginning of layer zielEbene 
							set movedBoxes to movedBoxes + 1 
						end repeat 
						-- Texte umfärben 
						set color of text 1 of every text box of layer zielEbene to newColor 
					end if 
				end tell -- Seite 
			end repeat -- Seiten durcharbeiten 
			save 
			do updates 
			return {movedBoxes} 
		on error errmsg number errnum 
			return {errmsg, errnum} 
		end try 
	end tell 
end script