tell application "Adobe InDesign CS2" 
 activate 
 -- testen, ob ein Dokument geöffnet ist 
 if not (exists document 1) then 
  display dialog "Bitte ein InDesign-Dokument öffnen." buttons ¬ 
   "OK" default button 1 with icon 0 
  error number -128 
 end if 
  
 tell document 1 
  -- die aktive Ebene feststellen, damit diese am Schluss  
  -- wieder aktiviert werden kann 
  set actLayer to active layer of layout window 1 
  if name of actLayer is "Bildprozente" then 
   repeat with i from (count of layers) to 1 by -1 
    if name of layer i is not "Bildprozente" then 
     set actLayer to layer i 
     exit repeat 
    end if 
   end repeat 
  end if 
   
  -- prüfen, ob die Extra-Ebene existiert ... 
  if exists layer "Bildprozente" then 
   try 
    -- wenn ja, sichtbar machen, die Objekte entsperren und entfernen 
    set properties of layer "Bildprozente" to {visible:true, locked:false} 
    set locked of every page item of layer "Bildprozente" to false 
    delete every page item of layer "Bildprozente" 
   end try 
   -- ... sonst eine erzeugen 
  else 
   set idLayer to make layer with properties {name:"Bildprozente"} 
  end if 
  -- die Ebene zur aktiven bestimmen 
  set targetLayer to layer "Bildprozente" 
  set active layer of layout window 1 to targetLayer 
   
  -- eine Variable initialisieren 
  set probCtr to 0 
   
  -- die Vorgaben anpassen 
  set zeroPoint to zero point 
  if zeroPoint is not {0.0, 0.0} then set zero point to {0.0, 0.0} 
  tell view preferences 
   set rulerOrigin to ruler origin 
   if rulerOrigin is not page origin then set ruler origin to page origin 
  end tell 
   
  if saved is false then 
   display dialog "Bitte zuerst das Dokument speichern." buttons ¬ 
    "OK" default button 1 with icon 0 
   error number -128 
  end if 
  try 
   save 
  end try 
  set AppleScript's text item delimiters to {":"} 
  set allLinks to every link whose needed is true 
  -- eine Schleife durch die Links 
  repeat with i from 1 to count of allLinks 
   set curLink to (item i of my allLinks) 
   set curProps to properties of (parent of curLink) 
   try 
    -- das Prüfen des aktuellen PPI-Wertes generiert einen Fehler, wenn ein  
    -- Vektorbild adressiert wird 
    set actPPI to actual ppi of curProps 
    -- die Bildprozentwerte speichern ... 
    set hScale to horizontal scale of curProps 
    set vScale to vertical scale of curProps 
    -- ... und prüfen 
    if hScale is less than 70 or vScale is less than 70 or ¬ 
     hScale is greater than 125 or vScale is greater than 125 then 
     set probCtr to probCtr + 1 
     -- die beiden Werte auf zwei Dezimalstellen runden 
     set hScale to (((hScale * 100) + 0.5) div 1) / 100 
     set vScale to (((vScale * 100) + 0.5) div 1) / 100 
     -- den Namen des Bildes feststellen 
     set curPath to (file path of curLink) 
     set fileName to text item -1 of curPath 
     -- die Position des Bildrahmens speichern 
     set curBox to parent of parent of curLink 
     set {y1, x1, y2, x2} to geometric bounds of curBox 
     set curSpread to parent of curBox 
     -- die Textkette zusammensetzen ... 
     set curString to fileName & return & "H: " & hScale & "%" & ¬ 
      return & "V: " & vScale & "%" 
     -- ... und den Handler aufrufen, welcher den Rahmen erzeugt 
     my makeFrame(curSpread, y1, x1, curString) 
    end if 
   end try 
  end repeat 
 end tell 
 -- die ursprünglich aktivierte Ebene auswählen 
 try 
  set active layer of layout window 1 to actLayer 
 end try 
 -- das Ergebnis der Aktion melden 
 if probCtr is 0 then 
  display dialog "Keine Problembilder gefunden." buttons ¬ 
   "OK" default button 1 with icon 1 
 else if probCtr is 1 then 
  display dialog "Ein Problembild gekennzeichnet." buttons ¬ 
   "OK" default button 1 with icon 2 
 else if probCtr is greater than 1 then 
  display dialog "" & probCtr & " Problembilder gefunden." buttons ¬ 
   "OK" default button 1 with icon 2 
 end if 
end tell 
 
-- der Handler, welcher die Markierungsrahmen erzeugt 
on makeFrame(curSpread, y1, x1, curString) 
 tell document 1 of application "Adobe InDesign CS2" 
  set yellowColor to color "Yellow" 
  tell curSpread 
   try 
    set newFrame to make text frame at beginning with properties ¬ 
     {geometric bounds:{y1, x1, y1 + 16, x1 + 50}, fill color:¬ 
      "Magenta", contents:curString} 
    tell newFrame 
     set inset spacing of text frame preferences to {1, 1, 0, 0} 
     tell parent story 
      set fill color to yellowColor 
     end tell 
    end tell 
   end try 
  end tell 
 end tell 
end makeFrame 

tell application "Adobe InDesign CS2" 
 activate 
 -- testen, ob ein Dokument geöffnet ist 
 if not (exists document 1) then 
  display dialog "Bitte ein InDesign-Dokument öffnen." buttons ¬ 
   "OK" default button 1 with icon 0 
  error number -128 
 end if 
  
 tell document 1 
  -- die aktive Ebene feststellen, damit diese am Schluss  
  -- wieder aktiviert werden kann 
  set actLayer to active layer of layout window 1 
  if name of actLayer is "Bildprozente" then 
   repeat with i from (count of layers) to 1 by -1 
    if name of layer i is not "Bildprozente" then 
     set actLayer to layer i 
     exit repeat 
    end if 
   end repeat 
  end if 
   
  -- prüfen, ob die Extra-Ebene existiert ... 
  if exists layer "Bildprozente" then 
   try 
    -- wenn ja, sichtbar machen, die Objekte entsperren und entfernen 
    set properties of layer "Bildprozente" to {visible:true, locked:false} 
    set locked of every page item of layer "Bildprozente" to false 
    delete every page item of layer "Bildprozente" 
   end try 
   -- ... sonst eine erzeugen 
  else 
   set idLayer to make layer with properties {name:"Bildprozente"} 
  end if 
  -- die Ebene zur aktiven bestimmen 
  set targetLayer to layer "Bildprozente" 
  set active layer of layout window 1 to targetLayer 
   
  -- eine Variable initialisieren 
  set probCtr to 0 
   
  -- die Vorgaben anpassen 
  set zeroPoint to zero point 
  if zeroPoint is not {0.0, 0.0} then set zero point to {0.0, 0.0} 
  tell view preferences 
   set rulerOrigin to ruler origin 
   if rulerOrigin is not page origin then set ruler origin to page origin 
  end tell 
   
  -- wenn das Absatzformat "Bildprozente" nicht vorhanden ist, wird es erzeugt 
  if not (exists paragraph style "Bildprozente") then 
   set yellowColor to color "Yellow" 
   make paragraph style with properties {name:¬ 
    "Bildprozente", applied font:"Helvetica\tRegular", align to baseline:false ¬ 
    , baseline shift:0, capitalization:normal, drop cap lines:0 ¬ 
    , fill color:yellowColor, fill tint:-1.0, first line indent:0 ¬ 
    , horizontal scale:100, justification:left align, last line indent:0 ¬ 
    , left indent:0, point size:8, leading:10, position:normal, right indent:0 ¬ 
    , rule above:false, rule below:false, skew:0, strike thru:false ¬ 
    , stroke color:"None", tracking:0, underline:false, vertical scale:100} 
  end if 
   
  set AppleScript's text item delimiters to {":"} 
  set allLinks to every link whose needed is true 
  -- eine Schleife durch die Links 
  repeat with i from 1 to count of allLinks 
   set curLink to (item i of my allLinks) 
   set curProps to properties of (parent of curLink) 
   try 
    -- das Prüfen des aktuellen PPI-Wertes generiert einen Fehler, wenn ein  
    -- Vektorbild adressiert wird und die folgenden Befehle werden nicht ausgeführt 
    set actPPI to actual ppi of curProps 
    -- die Bildprozentwerte speichern ... 
    set hScale to horizontal scale of curProps 
    set vScale to vertical scale of curProps 
    -- ... und prüfen 
    if hScale is less than 70 or vScale is less than 70 or ¬ 
     hScale is greater than 125 or vScale is greater than 125 then 
     set probCtr to probCtr + 1 
     -- die beiden Werte auf zwei Dezimalstellen runden 
     set hScale to (((hScale * 100) + 0.5) div 1) / 100 
     set vScale to (((vScale * 100) + 0.5) div 1) / 100 
     -- den Namen des Bildes feststellen 
     set curPath to (file path of curLink) 
     set fileName to text item -1 of curPath 
     -- die Position des Bildrahmens speichern 
     set curBox to parent of parent of curLink 
     set {y1, x1, y2, x2} to geometric bounds of curBox 
     set curPage to parent of curBox 
     try 
      repeat while class of curPage is group 
       set curPage to parent of curPage 
      end repeat 
     end try 
     -- die Textkette zusammensetzen ... 
     set curString to fileName & return & "H: " & hScale & ¬ 
      "% / V: " & vScale & "%" 
     -- ... und den Handler aufrufen, welcher den Rahmen erzeugt 
     my makeFrame(curPage, y1, x1, curString) 
    end if 
   end try 
  end repeat 
 end tell 
 -- die ursprünglich aktivierte Ebene auswählen 
 try 
  set active layer of layout window 1 to actLayer 
 end try 
 -- das Ergebnis der Aktion melden 
 if probCtr is 0 then 
  display dialog "Keine Problembilder gefunden." buttons ¬ 
   "OK" default button 1 with icon 1 
 else if probCtr is 1 then 
  display dialog "Ein Problembild gekennzeichnet." buttons ¬ 
   "OK" default button 1 with icon 2 
 else if probCtr is greater than 1 then 
  display dialog "" & probCtr & " Problembilder gefunden." buttons ¬ 
   "OK" default button 1 with icon 2 
 end if 
end tell 
 
-- der Handler, welcher die Markierungsrahmen erzeugt 
on makeFrame(curPage, y1, x1, curString) 
 tell document 1 of application "Adobe InDesign CS2" 
  tell curPage 
   try 
    set newFrame to make text frame at beginning with properties ¬ 
     {geometric bounds:{y1, x1, y1 + 8, x1 + 50}, fill color:¬ 
      "Magenta", contents:curString} 
    tell newFrame 
     set inset spacing of text frame preferences to {1, 1, 0, 0} 
     tell parent story 
      set applied paragraph style to "Bildprozente" 
     end tell 
    end tell 
   end try 
  end tell 
 end tell 
end makeFrame 

\t 

Ungültiger Wert für Einrichtung der Eigenschaft "fill color".  
swatch oder string erwartet, aber "Yellow" erhalten. 

tell application "Adobe InDesign CS2" 
 activate 
 -- testen, ob ein Dokument geöffnet ist 
 if not (exists document 1) then 
  display dialog "Bitte ein InDesign-Dokument öffnen." buttons ¬ 
   "OK" default button 1 with icon 0 
  error number -128 
 end if 
  
 tell document 1 
  -- die aktive Ebene feststellen, damit diese am Schluss  
  -- wieder aktiviert werden kann 
  set actLayer to active layer of layout window 1 
  if name of actLayer is "Bildprozente" then 
   repeat with i from (count of layers) to 1 by -1 
    if name of layer i is not "Bildprozente" then 
     set actLayer to layer i 
     exit repeat 
    end if 
   end repeat 
  end if 
   
  -- prüfen, ob die Extra-Ebene existiert ... 
  if exists layer "Bildprozente" then 
   try 
    -- wenn ja, sichtbar machen, die Objekte entsperren und entfernen 
    set properties of layer "Bildprozente" to {visible:true, locked:false} 
    set locked of every page item of layer "Bildprozente" to false 
    delete every page item of layer "Bildprozente" 
   end try 
   -- ... sonst eine erzeugen 
  else 
   set idLayer to make layer with properties {name:"Bildprozente"} 
  end if 
  -- die Ebene zur aktiven bestimmen 
  set targetLayer to layer "Bildprozente" 
  set active layer of layout window 1 to targetLayer 
   
  -- eine Variable initialisieren 
  set probCtr to 0 
   
  -- die Vorgaben anpassen 
  set zeroPoint to zero point 
  if zeroPoint is not {0.0, 0.0} then set zero point to {0.0, 0.0} 
  tell view preferences 
   set rulerOrigin to ruler origin 
   if rulerOrigin is not page origin then set ruler origin to page origin 
  end tell 
  set noCharStyle to character style 1 
  set applied character style of text defaults to noCharStyle 
  set noParaStyle to paragraph style 1 
  set applied paragraph style of text defaults to noParaStyle 
   
  -- wenn das Absatzformat "Bildprozente" nicht vorhanden ist, wird es erzeugt 
  if not (exists paragraph style "Bildprozente") then 
   set yellowColor to color "Yellow" 
   make paragraph style with properties {name:¬ 
    "Bildprozente", applied font:"Helvetica\tRegular", align to baseline:false ¬ 
    , baseline shift:0, capitalization:normal, drop cap lines:0 ¬ 
    , fill color:yellowColor, fill tint:-1.0, first line indent:0 ¬ 
    , horizontal scale:100, justification:left align, last line indent:0 ¬ 
    , left indent:0, point size:8, leading:10, position:normal, right indent:0 ¬ 
    , rule above:false, rule below:false, skew:0, strike thru:false ¬ 
    , stroke color:"None", tracking:0, underline:false, vertical scale:100} 
  end if 
   
  set AppleScript's text item delimiters to {":"} 
  set allLinks to every link whose needed is true 
  -- eine Schleife durch die Links 
  repeat with i from 1 to count of allLinks 
   set curLink to (item i of my allLinks) 
   set curProps to properties of (parent of curLink) 
   try 
    -- das Prüfen des aktuellen PPI-Wertes generiert einen Fehler, wenn ein  
    -- Vektorbild adressiert wird und die folgenden Befehle werden nicht ausgeführt 
    set actPPI to actual ppi of curProps 
    -- die Bildprozentwerte speichern ... 
    set hScale to horizontal scale of curProps 
    set vScale to vertical scale of curProps 
    -- ... eventuelle negative Werte umpolen ... 
    if vScale is less than 0 then 
     set vScale to vScale - (2 * vScale) 
    end if 
    -- ... und prüfen 
    if hScale is less than 70 or vScale is less than 70 or ¬ 
     hScale is greater than 125 or vScale is greater than 125 then 
     set probCtr to probCtr + 1 
     -- die beiden Werte auf zwei Dezimalstellen runden 
     set hScale to (((hScale * 100) + 0.5) div 1) / 100 
     set vScale to (((vScale * 100) + 0.5) div 1) / 100 
     -- den Namen des Bildes feststellen 
     set curPath to (file path of curLink) 
     set fileName to text item -1 of curPath 
     -- die Position des Bildrahmens speichern 
     set curBox to parent of parent of curLink 
     set {y1, x1, y2, x2} to geometric bounds of curBox 
     set curParent to parent of curBox 
     try 
      repeat while class of curParent is not page and class of curParent is not spread 
       set curParent to parent of curParent 
      end repeat 
     end try 
     -- die Textkette zusammensetzen ... 
     set curString to fileName & return & "H: " & hScale & ¬ 
      "% / V: " & vScale & "%" 
     -- ... und den Handler aufrufen, welcher den Rahmen erzeugt 
     my makeFrame(curParent, y1, x1, curString) 
    end if 
   end try 
  end repeat 
 end tell 
 -- die ursprünglich aktivierte Ebene auswählen 
 try 
  set active layer of layout window 1 to actLayer 
 end try 
 -- das Ergebnis der Aktion melden 
 if probCtr is 0 then 
  display dialog "Keine Problembilder gefunden." buttons ¬ 
   "OK" default button 1 with icon 1 
 else if probCtr is 1 then 
  display dialog "Ein Problembild gekennzeichnet." buttons ¬ 
   "OK" default button 1 with icon 2 
 else if probCtr is greater than 1 then 
  display dialog "" & probCtr & " Problembilder gefunden." buttons ¬ 
   "OK" default button 1 with icon 2 
 end if 
end tell 
 
-- der Handler, welcher die Markierungsrahmen erzeugt 
on makeFrame(curParent, y1, x1, curString) 
 tell document 1 of application "Adobe InDesign CS2" 
  tell curParent 
   try 
    set newFrame to make text frame at beginning with properties ¬ 
     {geometric bounds:{y1, x1, y1 + 8, x1 + 50}, fill color:¬ 
      "Magenta", contents:curString} 
    tell newFrame 
     set inset spacing of text frame preferences to {1, 1, 0, 0} 
     tell parent story 
      set applied paragraph style to "Bildprozente" 
     end tell 
    end tell 
   end try 
  end tell 
 end tell 
end makeFrame 

tell application "Adobe InDesign CS2" 
 activate 
 if not (exists document 1) then 
  display dialog "Bitte ein InDesign-Dokument öffnen." buttons ¬ 
   "OK" default button 1 with icon 0 
  error number -128 
 end if 
  
 tell document 1 
  set actLayer to active layer of layout window 1 
  if name of actLayer is "Bildprozente" then 
   repeat with i from (count of layers) to 1 by -1 
    if name of layer i is not "Bildprozente" then 
     set actLayer to layer i 
     exit repeat 
    end if 
   end repeat 
  end if 
   
  if exists layer "Bildprozente" then 
   try 
    set properties of layer "Bildprozente" to {visible:true, locked:false} 
    set locked of every page item of layer "Bildprozente" to false 
    delete every page item of layer "Bildprozente" 
   end try 
  else 
   set idLayer to make layer with properties {name:"Bildprozente"} 
  end if 
  set targetLayer to layer "Bildprozente" 
  set active layer of layout window 1 to targetLayer 
   
  set probCtr to 0 
   
  set zeroPoint to zero point 
  if zeroPoint is not {0.0, 0.0} then set zero point to {0.0, 0.0} 
  tell view preferences 
   set rulerOrigin to ruler origin 
   if rulerOrigin is not page origin then set ruler origin to page origin 
  end tell 
  set noCharStyle to character style 1 
  set applied character style of text defaults to noCharStyle 
  set noParaStyle to paragraph style 1 
  set applied paragraph style of text defaults to noParaStyle 
   
  if not (exists paragraph style "Bildprozente") then 
   set yellowColor to color "Yellow" 
   make paragraph style with properties {name:¬ 
    "Bildprozente", applied font:"Helvetica\tRegular", align to baseline:false ¬ 
    , baseline shift:0, capitalization:normal, drop cap lines:0 ¬ 
    , fill color:yellowColor, fill tint:-1.0, first line indent:0 ¬ 
    , horizontal scale:100, justification:left align, last line indent:0 ¬ 
    , left indent:0, point size:8, leading:10, position:normal, right indent:0 ¬ 
    , rule above:false, rule below:false, skew:0, strike thru:false ¬ 
    , stroke color:"None", tracking:0, underline:false, vertical scale:100} 
  end if 
   
  set AppleScript's text item delimiters to {":"} 
  set allLinks to every link whose needed is true 
  repeat with i from 1 to count of allLinks 
   set curLink to (item i of my allLinks) 
   set curProps to properties of (parent of curLink) 
   try 
    -- das Prüfen des aktuellen PPI-Wertes generiert einen Fehler, wenn ein  
    -- Vektorbild adressiert wird und die folgenden Befehle werden nicht ausgeführt 
    set actPPI to actual ppi of curProps 
    -- die Bildprozentwerte speichern ... 
    set hScale to horizontal scale of curProps 
    set vScale to vertical scale of curProps 
    -- ... eventuelle negative Werte umpolen ... 
    if vScale is less than 0 then 
     set vScale to vScale - (2 * vScale) 
    end if 
    -- ... und prüfen 
    if hScale is less than 70 or vScale is less than 70 or ¬ 
     hScale is greater than 125 or vScale is greater than 125 then 
     set probCtr to probCtr + 1 
     -- die beiden Werte auf zwei Dezimalstellen runden 
     set hScale to (((hScale * 100) + 0.5) div 1) / 100 
     set vScale to (((vScale * 100) + 0.5) div 1) / 100 
     -- den Namen des Bildes feststellen 
     set curPath to (file path of curLink) 
     set fileName to text item -1 of curPath 
     -- die Position des Bildrahmens speichern 
     set curBox to parent of parent of curLink 
     set {y1, x1, y2, x2} to geometric bounds of curBox 
     set curParent to parent of curBox 
     set done to false 
     try 
      repeat while class of curParent is not page and class of curParent is not spread 
       -- wenn der 'parent' eine Textkette ist, dann ist es ein verankerter Bildrahmen 
       if class of curParent is story then 
        set curParent to parent of curParent 
        -- die Textkette zusammensetzen ... 
        set curString to fileName & return & "H: " & hScale & ¬ 
         "% / V: " & vScale & "%" 
        -- ... und den Handler aufrufen, welcher den Rahmen erzeugt 
        my makeFrame(curParent, y1, x1, curString) 
        set done to true 
        exit repeat 
       end if 
       set curParent to parent of curParent 
      end repeat 
     end try 
     if not done then 
      -- die Textkette zusammensetzen ... 
      set curString to fileName & return & "H: " & hScale & ¬ 
       "% / V: " & vScale & "%" 
      -- ... und den Handler aufrufen, welcher den Rahmen erzeugt 
      my makeFrame(curParent, y1, x1, curString) 
     end if 
    end if 
   end try 
  end repeat 
 end tell 
 -- die ursprünglich aktivierte Ebene auswählen 
 try 
  set active layer of layout window 1 to actLayer 
 end try 
 -- das Ergebnis der Aktion melden 
 if probCtr is 0 then 
  display dialog "Keine Problembilder gefunden." buttons ¬ 
   "OK" default button 1 with icon 1 
 else if probCtr is 1 then 
  display dialog "Ein Problembild gekennzeichnet." buttons ¬ 
   "OK" default button 1 with icon 2 
 else if probCtr is greater than 1 then 
  display dialog "" & probCtr & " Problembilder gefunden." buttons ¬ 
   "OK" default button 1 with icon 2 
 end if 
end tell 
 
-- der Handler, welcher die Markierungsrahmen erzeugt 
on makeFrame(curParent, y1, x1, curString) 
 tell document 1 of application "Adobe InDesign CS2" 
  tell curParent 
   try 
    set newFrame to make text frame at beginning with properties ¬ 
     {geometric bounds:{y1, x1, y1 + 8, x1 + 50}, fill color:¬ 
      "Magenta", contents:curString} 
    tell newFrame 
     set inset spacing of text frame preferences to {1, 1, 0, 0} 
     tell parent story 
      set applied paragraph style to "Bildprozente" 
     end tell 
    end tell 
   end try 
  end tell 
 end tell 
end makeFrame