tell application "QuarkXPress 7.31" 
 if not (exists document 1) then 
  display dialog "Das Originaldokument öffnen." buttons "OK" default button 1 with icon 2 
  error number -128 
 end if 
 set targetLeft to (choose file with prompt "Linkes Zieldokument wählen.") as Unicode text 
 set targetRight to (choose file with prompt "Rechtes Zieldokument wählen.") as Unicode text 
 set targetFolder to choose folder with prompt "Zielordner wählen." 
 repeat with i from 1 to count of pages of document 1 
  tell document 1 
   tell page i 
    set pageName to name as integer 
    set idList to {} 
    try 
     set idList to uniqueID of every picture box 
    end try 
   end tell 
  end tell 
  if pageName mod 2 is 0 then 
   open targetLeft as alias 
  else 
   open targetRight as alias 
  end if 
  try 
   duplicate every generic box of page i of document 2 ¬ 
    to beginning of page 1 of document 1 
   if (count of idList) is not 0 then 
    repeat with k from (count of picture boxes) to 1 by -1 
     if uniqueID is not in idList then 
      try 
       delete picture box k 
      end try 
     end if 
    end repeat 
   end if 
   set pageNbr to text -2 thru -1 of ("0" & i) 
   set filePath to (targetFolder & "Seite_" & pageNbr & ".qxp") as string 
   save document 1 in filePath 
   close document 1 saving no 
  end try 
 end repeat 
 display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
end tell 

tell application "QuarkXPress 7.31" 
 if not (exists document 1) then 
  display dialog "Das Originaldokument öffnen." buttons "OK" default button 1 with icon 2 
  error number -128 
 end if 
 set targetLeft to (choose file with prompt "Linkes Zieldokument wählen.") as Unicode text 
 set targetRight to (choose file with prompt "Rechtes Zieldokument wählen.") as Unicode text 
 set targetFolder to choose folder with prompt "Zielordner wählen." 
 repeat with i from 1 to count of pages of document 1 
  tell document 1 
   tell page i 
    set pageName to name as integer 
   end tell 
  end tell 
  if pageName mod 2 is 0 then 
   open targetLeft as alias 
  else 
   open targetRight as alias 
  end if 
  try 
   duplicate every generic box of page i of document 2 ¬ 
    to beginning of page 1 of document 1 
   set oldOrig to {} 
   tell document 1 
    repeat with k from (count of picture boxes) to 1 by -1 
     set curOrig to origin of bounds of picture box k 
     if curOrig is oldOrig then 
      try 
       delete picture box k 
      end try 
     end if 
     set oldOrig to curOrig 
    end repeat 
   end tell 
   set pageNbr to text -2 thru -1 of ("0" & i) 
   set filePath to (targetFolder & "Seite_" & pageNbr & ".qxp") as string 
   save document 1 in filePath 
   close document 1 saving no 
  end try 
 end repeat 
 display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
end tell