tell document 1 of application "Adobe InDesign CS2" 
  try 
    set curSel to item 1 of selection 
  on error 
    display dialog "Nichts ausgewählt." buttons ¬ 
      "OK" default button 1 with icon 2 
    error number -128 
  end try 
  try 
    set curContent to content type of selection 
    if curContent is graphic type then 
      set curSel to graphic 1 of selection 
    end if 
  end try 
  tell curSel 
    set textWrapType to text wrap type of text wrap preferences 
    if textWrapType is none then 
      set msg to "Keine Konturenführung" 
    else if textWrapType is bounding box text wrap then 
      set msg to "Konturenführung" & return & "um Begrenzungsrahmen" 
    else if textWrapType is contour then 
      set msg to "Konturenführung um Objektform" 
    else if textWrapType is jump object text wrap then 
      set msg to "Konturenführung:" & return & "Objekt überspringen" 
    else if textWrapType is next column text wrap then 
      set msg to "Konturenführung:" & return & "In nächste Spalte springen" 
    else if textWrapType is user modified then 
      set msg to "Konturenführung: Benutzermodifiziert" 
    end if 
  end tell 
  display dialog msg buttons "OK" default button 1 with icon 1 
end tell 

tell document 1 of application "Adobe InDesign CS2" 
  try 
    tell graphic 1 of rectangle 1 
      tell text wrap preferences 
        if text wrap type is user modified then 
          set contour type of contour options to same as clipping 
          set contour type of contour options to photoshop path 
        end if 
      end tell 
    end tell 
  end try 
end tell