tell document 1 of application "QuarkXPress 6.52" 
  set newLayer to make layer at beginning 
  repeat with i from 1 to count of generic boxes of layer "Ebene 1" 
    duplicate generic box i of layer "Ebene 1" to beginning of newLayer 
  end repeat 
end tell 

property TextLayer : "Text" 
 
tell application "QuarkXPress Passport" 
	tell front document 
		set selected of every generic box of layer (my TextLayer) to true 
		copy 
		set selected of every generic box of layer (my TextLayer) to false 
		paste 
	end tell 
end tell 

set TextLayer_alt to "Text" 
set TextLayer_neu to "Text_neu" 
 
my ungroupAll_XPress() 
 
tell application "QuarkXPress Passport" 
	tell front document 
		-- selektieren und gruppieren 
		set selected of every generic box of layer TextLayer_alt to true 
		set grouped of group box 1 to true 
		-- neue ebene anlegen 
		set newLayer to make new layer at beginning with properties {name:TextLayer_neu} 
		-- gruppe duplizieren 
		duplicate group box 1 to end of layer TextLayer_neu 
		-- die neue gruppe auf der neuen ebene ungruppieren 
		set grouped of group box 1 to false 
		-- die alte gruppe auf der alten ebene ungruppieren 
		set grouped of group box 1 to false 
	end tell 
end tell 
 
on ungroupAll_XPress() 
	tell application "QuarkXPress Passport" 
		tell front document 
			set groupList to every group box 
			repeat while groupList ≠ {} 
				set grouped of group box 1 to false 
				set groupList to every group box 
			end repeat 
		end tell 
	end tell 
end ungroupAll_XPress 

repeat while groupList ≠ {} 

duplicate group box 1 to end of layer newLayerName