tell document 1 of application "QuarkXPress 6.52" 
  activate 
  try 
    repeat with i from 1 to count of pages 
      tell page i 
        set pageNbr to name 
        try 
          tell picture box "tmp" 
            tell image 1 
              if (pageNbr mod 2) is 0 then 
                set properties to {offset:{-10, -10}} 
              else 
                set properties to {offset:{-10, -20}} 
              end if 
            end tell 
          end tell 
        on error 
          display dialog "Bitte erst Bildrahmen erzeugen." buttons "OK" default button 1 with icon 2 
          error number -128 
        end try 
      end tell 
    end repeat 
     
    -- Versuch, die Bildschirmanzeige aufzufrischen 
    move layer 1 to end 
    do updates 
    move layer -1 to front 
    -- Ende Versuch 
     
    display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
     
  on error errMsg number errNum 
    if errNum is not -128 then 
      display dialog errMsg buttons "OK" default button 1 with icon 0 
    end if 
    return 
  end try 
end tell 

tell document 1 of application "QuarkXPress 6.52" 
  activate 
  -- eine Schleife durch die Bildboxen 
  repeat with i from 1 to count of picture boxes 
    tell picture box i 
      -- den Pfad zur Bilddatei speichern 
      set filePath to (file path of image 1) as string 
      -- sicherstellen, dass die Box nicht leer ist (der Pfad wäre "null")  
      -- und dass es kein eingesetztes PICT ist (= ohne Disk-Datei) 
      if filePath is not "null" and filePath is not "no disk file" then 
        -- dem Trenner der Textelemente den aktuellen Ordner zuweisen 
        set AppleScript's text item delimiters to "LowResPDFs" 
        -- die beiden Textelemente in die Variable 'pathList' geben 
        set pathList to (every text item of filePath) as list 
        -- dem Trenner der Textelemente den neuen Ordner zuweisen         
        set AppleScript's text item delimiters to "HighResPDFs" 
        -- den neuen Pfad in die Variable 'newPath' geben 
        set newPath to (every item of pathList) as string 
        -- versuchen, das neue Bild zu laden 
        try 
          set image 1 to alias newPath 
        end try 
      end if 
    end tell 
  end repeat 
  display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1  
  -- den Trenner der Textelemente auf einen leeren String zurücksetzen 
  set AppleScript's text item delimiters to {""} 
end tell 

tell document 1 of application "QuarkXPress 6.5" 
activate 
-- eine Schleife durch die Bildboxen 
repeat with i from 1 to count of picture boxes 
tell picture box i 
-- den Pfad zur Bilddatei speichern 
set filePath to (file path of image 1) as string 
-- sicherstellen, dass die Box nicht leer ist (der Pfad wäre "null")  
-- und dass es kein eingesetztes PICT ist (= ohne Disk-Datei) 
if filePath is not "null" and filePath is not "no disk file" then 
-- dem Trenner der Textelemente den aktuellen Ordner zuweisen 
set AppleScript's text item delimiters to "08_LowRes_4C_PDFs" 
-- die beiden Textelemente in die Variable 'pathList' geben 
set pathList to (every text item of filePath) as list 
-- dem Trenner der Textelemente den neuen Ordner zuweisen         
set AppleScript's text item delimiters to "03_4c:High-end_PDF_Master" 
-- den neuen Pfad in die Variable 'newPath' geben 
set newPath to (every item of pathList) as string 
-- versuchen, das neue Bild zu laden 
try 
set image 1 to alias newPath 
on error 
display dialog "HighResPDFs konnten nicht gefunden werden." buttons "OK" default button 1 with icon 2 
error number -128 
 
end try 
end if 
end tell 
end repeat 
-- den Trenner der Textelemente auf einen leeren String zurücksetzen 
set AppleScript's text item delimiters to {""} 
 
-- TEST: PDFs in Bildboxen erneut ausrichten 
repeat with i from 1 to count of pages 
tell page i 
set pageNbr to name 
try 
tell picture box "tmp" 
tell image 1 
if (pageNbr mod 2) is 0 then 
set properties to {offset:{-10, -10}} 
else 
set properties to {offset:{-10, -20}} 
end if 
end tell 
end tell 
 
end try 
end tell 
end repeat 
 
return 
 
end tell 

if filePath is not "null" and filePath is not "no disk file" then 

if filePath ? "null" and filePath ? "«class null»" then 

if filePath ? "no disk file" and filePath ? "«constant ****Ndft»" then 

tell layer "Bildebene" 

tell application "QuarkXPress Passport" 
tell front document 
set allPictureBoxes to every picture box 
repeat with PDFbox in allPictureBoxes 
if (file path of image 1 of PDFbox as string) ends with ".pdf" then 
-- mach aktion 
end if 
end repeat 
end tell 
end tell