property cliclickPath : POSIX path of file ((path to "desk" as text) & "cliclick") 
 
-- prüfen ob Quark läuft: 
testApp() 
 
tell application "QuarkXPress Passport" 
    activate 
    tell application "System Events" 
        tell process "QuarkXPress" 
            -- Beginn der Schleife: 
            set repetitions to 8 
            repeat repetitions times 
                 
                 
                set winPos to position of window 1 
                set objPos to {1020, 196} -- bei mir ist dort der xml weiter-Button 
                set xPos to (item 1 of winPos) + (item 1 of objPos) 
                set yPos to (item 2 of winPos) + (item 2 of objPos) 
                set clickCommand to (cliclickPath & " " & xPos & " " & yPos) 
                do shell script clickCommand -- click ausführen 
                delay 0.5 
                do shell script clickCommand -- click ausführen 
 
                -- save dokument: 
                tell application "QuarkXPress Passport" 
                    tell page 1 of layout space 1 of project 1 
                        set tmpFile to "" 
                        set theFilename to "" 
                                                 
                        set theFilename to get text of text box 1 
                         
                        set tmpFile to "YOUR:PATH:TO:FOLDER:" & theFilename & ".qxd" 
 
                    end tell 
                    save document 1 in tmpFile 
                end tell 
                 
                delay 2 
            end repeat 
        end tell 
    end tell 
end tell 
 
 
on testApp() 
    tell application "System Events" 
        activate 
        set curProc to (name of every process) as string 
    end tell 
    tell me to activate 
    if curProc does not contain "QuarkXPress" then 
        display dialog "Bitte QuarkXPress starten." buttons ¬ 
            "OK" default button 1 with icon 2 
        error number -128 
    end if 
end testApp