(* 
BilderEntfernen_501d.scpt 
Ein AppleScript zum Entfernen von per Dialog ausgewählten Bildern 
*) 
 
-- die Namen der Bilder auflisten 
tell application "Adobe InDesign CS5" 
  tell document 1 
    set allGraphics to name of every link 
  end tell 
end tell 
 
-- Duplikate herausfiltern 
set defList to {} 
set nGraphics to count allGraphics 
repeat with i from 1 to nGraphics 
  set curItem to item i of allGraphics 
  if curItem is not in defList then 
    set end of defList to curItem 
  end if 
end repeat 
 
-- den Dialog zum Wählen der Bildnamen zeigen 
if (count of defList) is not 0 then 
  set toDelete to choose from list defList with multiple selections allowed 
else 
  display dialog "Keine Bilder gefunden." buttons "OK" default button 1 with icon 2 
  error number -128 
end if 
 
-- eine Schleife durch die Bilder; entfernen, wenn in Liste 
if toDelete is not false then 
  tell application "Adobe InDesign CS5" 
    activate 
    tell document 1 
      repeat with i from nGraphics to 1 by -1 
        if item i of allGraphics is in toDelete then 
          try 
            delete parent of link i 
          end try 
        end if 
      end repeat 
    end tell 
    display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
  end tell 
end if 

set allGraphics to name of every link 

(* 
BilderEntfernen_502d.scpt 
Ein AppleScript zum Entfernen von per Dialog ausgewählten Bildern mitsamt dem Rahmen 
*) 
 
-- die Namen der Bilder auflisten 
tell application "Adobe InDesign CS5" 
  tell document 1 
    set allGraphics to name of every link 
  end tell 
end tell 
 
-- Duplikate herausfiltern 
set defList to {} 
set nGraphics to count allGraphics 
repeat with i from 1 to nGraphics 
  set curItem to item i of allGraphics 
  if curItem is not in defList then 
    set end of defList to curItem 
  end if 
end repeat 
 
-- den Dialog zum Wählen der Bildnamen zeigen 
if (count of defList) is not 0 then 
  set toDelete to choose from list defList with multiple selections allowed 
else 
  display dialog "Keine Bilder gefunden." buttons "OK" default button 1 with icon 2 
  error number -128 
end if 
 
-- eine Schleife durch die Bilder; entfernen, wenn in Liste 
if toDelete is not false then 
  tell application "Adobe InDesign CS5" 
    activate 
    tell document 1 
      repeat with i from nGraphics to 1 by -1 
        if item i of allGraphics is in toDelete then 
          try 
            delete parent of parent of link i 
          end try 
        end if 
      end repeat 
    end tell 
    display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 
  end tell 
end if