tell document 1 of application "QuarkXPress" 
	activate 
 
	tell every text box 
		tell story 1 
			repeat with i from 1 to count paragraphs 
				tell paragraph i 
					if style sheet is "MDB_Headline" then 
						set character style to none 
					else if style sheet is "MDB_Beschreibung" then 
						set character style to none 
					end if 
				end tell 
			end repeat 
		end tell 
	end tell 
	 
	display dialog "Fertig!" 
	 
end tell 

tell document 1 of application "QuarkXPress" 
  activate 
  repeat with i from 1 to count of text boxes 
    tell text box i 
      tell story 1 
        repeat with k from 1 to count paragraphs 
          tell paragraph k 
            set curName to name of style sheet 
            if curName is "MDB_Headline" then 
              set paragraph style to null 
              set paragraph style to curName 
            else if curName is "MDB_Beschreibung" then 
              set paragraph style to null 
              set paragraph style to curName 
            end if 
          end tell 
        end repeat 
      end tell 
    end tell 
  end repeat 
   
  display dialog "Fertig!" giving up after 1 
   
end tell 

tell document 1 of application "QuarkXPress" 
  activate 
  repeat with i from 1 to count of text boxes 
    tell text box i 
      tell text 1 

tell document 1 of application "QuarkXPress" 
  activate 
  repeat with s from 1 to count of stories 
    tell story s 
      repeat with p from 1 to count of paragraphs 
        tell paragraph p 
          set curName to name of style sheet 
          if curName is "MDB_Headline" then 
            set paragraph style to null 
            set paragraph style to curName 
          else if curName is "MDB_Beschreibung" then 
            set paragraph style to null 
            set paragraph style to curName 
          end if 
        end tell 
      end repeat 
    end tell 
  end repeat 
   
  display dialog "Fertig!" giving up after 1 
   
end tell 

-- Suchen und Ersetzen in Tagged Text 
 
tell application "QuarkXPress" 
	activate 
	 
	-- File auf dem Schreibtisch 
	set tagsPath to ((path to desktop) as string) & "qxptags.xtg" 
	 
	-- Was soll ersetzt werden 
	set searchList to {"@MDB_Headline:<\\@>", "@MDB_Beschreibung:<\\@>", "@MDB_Artikel_Bezeichnung:<\\@>"} 
	set replaceList to {"@MDB_Headline:", "@MDB_Beschreibung:", "@MDB_Artikel_Bezeichnung:"} 
	 
	set convert quotes to true 
	set import styles to true 
	tell document 1 
		 
		-- in Tagged Text speichern 
		tell current box 
			save story 1 in (tagsPath as Unicode text) as "XPress tags" 
		end tell 
		 
		delay 1 
		 
	end tell 
	 
	-- Suchen und Ersetzen in Text File 
	set aString to read file tagsPath 
	 
	repeat with i from 1 to count of searchList 
		set sStr to item i of searchList 
		set rStr to item i of replaceList 
		set aString to my searchReplace(sStr, rStr, aString) 
	end repeat 
		 
	try 
		open for access file tagsPath with write permission 
		set eof of file tagsPath to 0 
		write aString to file tagsPath 
		close access file tagsPath 
	on error 
		close access file tagsPath 
	end try 
	 
	tell document 1 
		 
		-- Text wieder in Box laden 
		tell current box 
			set story 1 to alias tagsPath 
		end tell 
		 
	end tell 
end tell 
 
-- Suchen und Ersetzen Funktion 
on searchReplace(s, r, t) 
	set AppleScript's text item delimiters to (s) 
	set aList to (every text item of t) 
	set AppleScript's text item delimiters to (r) 
	set t to aList as string 
	set AppleScript's text item delimiters to "" 
	return t 
end searchReplace 

-- Suchen und Ersetzen in Tagged Text 
 
global aString 
global tagsPath 
 
tell application "QuarkXPress" 
  activate 
   
  -- File auf dem Schreibtisch 
  set tagsPath to ((path to desktop) as string) & "tagText.xtg" 
   
  -- Was soll ersetzt werden 
  set searchList to {"@MDB_Headline:<@>", "@MDB_Beschreibung:<@>", "@MDB_Artikel_Bezeichnung:<@>"} 
  set replaceList to {"@MDB_Headline:", "@MDB_Beschreibung:", "@MDB_Artikel_Bezeichnung:"} 
   
  set convert quotes to true 
  set import styles to true 
  tell document 1 
     
    -- in Tagged Text speichern 
    tell current box 
      save story 1 in tagsPath as "XPress tags" 
    end tell 
     
    my readFile() 
     
    -- Suchen und Ersetzen in Text File 
    repeat with i from 1 to count of searchList 
      set sStr to item i of searchList 
      set rStr to item i of replaceList 
      set aString to my searchReplace(sStr, rStr, aString) 
      log aString 
    end repeat 
     
    -- in die Datei schreiben 
    my writeFile(aString) 
     
    -- Text wieder in Box laden 
    tell current box 
      set story 1 to alias tagsPath 
    end tell 
     
  end tell 
end tell 
 
on readFile() 
  set aString to read file tagsPath 
end readFile 
 
-- Suchen und Ersetzen Funktion 
on searchReplace(s, r, t) 
  set AppleScript's text item delimiters to (s) 
  set aList to (every text item of t) as list 
  set AppleScript's text item delimiters to (r) 
  set t to aList as string 
  set AppleScript's text item delimiters to "" 
  return t 
end searchReplace 
 
on writeFile(aString) 
  try 
    open for access file tagsPath with write permission 
    set eof of file tagsPath to 0 
    write aString to file tagsPath 
    close access file tagsPath 
  on error 
    close access file tagsPath 
  end try 
end writeFile