tell application "QuarkXPress" 
  activate 
  if not (exists document 1) then 
    display dialog "Bitte ein QuarkXPress-Projekt öffnen." buttons "OK" default button 1 with icon 0 
    error number -128 
  end if 
  tell document 1 
    set allBoxes to every text box whose anchored is true 
    tell item 1 of allBoxes 
      set curNbr to (contents of story 1) as number 
      set curCol to name of color 
      select 
    end tell 
  end tell 
  cut 
end tell 

set charList to {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M"} 
 
tell application "QuarkXPress" 
  activate 
  if not (exists document 1) then 
    display dialog "Bitte ein QuarkXPress-Projekt öffnen." buttons "OK" default button 1 with icon 0 
    error number -128 
  end if 
   
  tell document 1 
    set allBoxes to every text box whose anchored is true 
     
    tell item 1 of allBoxes 
      set curNbr to (contents of story 1) as number 
      set curCol to name of color 
      select 
      set box type to picture box type 
    end tell 
     
  end tell 
  set curChar to item curNbr of charList 
  my setToClipboard(curChar) 
  paste 
end tell 
 
on setToClipboard(curChar) 
  set the clipboard to curChar 
end setToClipboard 

tell application "QuarkXPress Passport" 
	activate 
	 
	tell document 1 
		tell current page 
			set allBoxes to every text box whose anchored is true 
			set zahl to count of allBoxes 
			repeat with i from 1 to zahl 
				tell item i of allBoxes 
					select 
					set curCol to name of color 
					if curCol is "Magenta" then set story 1 to "w" 
					if curCol is "Cyan" then set story 1 to "x" 
					if curCol is "Gelb" then set story 1 to "y" 
					 
					cut 
					 
					tell application "System Events" 
						tell application process "QuarkXPress" to click menu item "An gleicher Stelle einfügen" of menu "Bearbeiten" of menu bar item "Bearbeiten" of menu bar 1 
					end tell 
				end tell 
			end repeat 
		end tell 
	end tell 
end tell