// ExtendScript (JavaScript) code: 
var objectStyleName = "Schwarzer Rahmen"; 
var doc = app.documents[0]; 
var objStyle = doc.objectStyles.itemByName( objectStyleName ); 
 
if( !objStyle.isValid ){alert("Objektstil nicht gefunden."); exit(); }; 
 
var allGraphics = doc.allGraphics; 
 
for( var n=allGraphics.length-1; n>=0; n-- ) 
{ 
	var containerFrame = allGraphics[n].parent; 
	containerFrame.applyObjectStyle( objStyle , true ); 
	allGraphics[n].remove(); 
}; 

Sub alle_Bitmaps_zu_leeren_Rahmen_konvertieren() 
Dim s As Shape, sRahmen As Shape 
Dim sr As ShapeRange 
Dim p As Page 
Dim x As Double, y As Double, breite As Double, hoehe As Double 
ActiveDocument.ReferencePoint = cdrBottomLeft 
 
  For Each p In ActiveDocument.Pages 
    Set sr = p.Shapes.FindShapes(, cdrBitmapShape) 
    For Each s In sr 
       s.GetPosition x, y 
       s.GetSize breite, hoehe 
       Set sRahmen = p.ActiveLayer.CreateRectangle2(x, y, breite, hoehe) 
       sRahmen.Outline.Width = 0.05                   'Rahmenstärke 0.05 inch 
       sRahmen.Outline.Color.CMYKAssign 0, 0, 0, 100  'Rahmenfarbe zuweisen 
    Next s 
    sr.Delete     'alle Bitmaps auf der Seite löschen 
  Next p 
End Sub 

// ExtendScript (JavaScript) code:  
var doc = app.documents[0];  
  
var allGraphics = doc.allGraphics;  
  
for( var n=0; n<allGraphics.length; n++ ) 
{  
	var containerFrame = allGraphics[n].parent;  
	containerFrame.properties = 
	{ 
		strokeWeight : "0.5 Pt" , 
		strokeColor : "Black" , 
		strokeTint : 100 , 
		strokeAlignment : StrokeAlignment.INSIDE_ALIGNMENT 
	}; 
 
	allGraphics[n].transparencySettings.blendingSettings.properties = 
	{ 
			blendMode : BlendMode.NORMAL , 
			opacity : 0 
	}; 
 
}; 

DisplayName	1	FEATURE_AdjustAllTo100_long 
 
INPUT	DEFAULT 
0.0	1.0 
0.5	1.0 
1.0	1.0