-- petitOptiSpace.as 
-- 
-- Ausmitteln von Kleindruckabsätzen 
-- Absatzabstand davor und danach werden gleichmäßig verteilt. 
-- hier wird am Ende der Absatzabstand des dem Kleindruckabsatz folgenden Absatzes auf Null gestellt 
 
tell application "Adobe InDesign CS2" 
	set myDoc to active document 
	tell myDoc 
		set myBase1 to baseline of character -1 of paragraph before paragraph 1 of selection 
		set myBase2 to baseline of character 1 of paragraph 1 of selection 
		set myBase3 to baseline of character -1 of paragraph -1 of selection 
		set myBase4 to baseline of character 1 of paragraph after paragraph -1 of selection 
		set mySpaceBefore to myBase2 - myBase1 
		set mySpaceAfter to myBase4 - myBase3 
		 
		set mySelLeading to leading of paragraph 1 of selection 
		set myNextLeading to leading of paragraph after paragraph -1 of selection 
		set myOptLeading to my pt2mm((mySelLeading + myNextLeading) / 2) 
		 
		set myParaSpaceBefore to space before of paragraph 1 of selection 
		set myParaSpaceafter to space after of paragraph -1 of selection 
		set myOptimalSpace to (mySpaceBefore + mySpaceAfter) / 2 - myOptLeading 
		set space before of paragraph 1 of selection to myOptimalSpace 
		set space after of paragraph -1 of selection to myOptimalSpace 
		set space before of paragraph after (paragraph -1 of selection) to 0 
	end tell 
end tell 
 
 
on pt2mm(Wert) 
	set myPt to 0.3528 
	set Wert to Wert * myPt 
end pt2mm 

tell application "Adobe InDesign CS2" 

tell application "Adobe InDesign CC 2017" 

tell application "Adobe InDesign CC 2017" 

tell application "Adobe InDesign CC 2015" 

AppleScript Fehler! 
Fehlernummer: -1728 
Adobe lnDesign 
Fehlerzeichenfolge: "Adobe lnDesign CC 2015" hat einen Fehler 
erhalten: "baseline of last character of paragraph before paragraph 1 
of selection of document id 8" kann nicht gelesen werden. 
Engine: Default 
Datei: /Users/martin/Library /Preferences/ Adobe lnDesign/Version 
11.0 / de_DE/Scri pts /Seri pts Panel/ petitOptiSpace.scpt