tell application "Adobe InDesign CS2" 
	set aDoc to active document 
	set aSel to a reference to item 1 of selection 
	set nChar to count characters in aSel 
	set myDialog to make dialog with properties {name:"Seitengröße ändern"} 
	tell myDialog 
		make dialog column 
		tell the result 
			make static text with properties {static label:"Startgröße:"} 
			make static text with properties {static label:"Endgröße:"} 
		end tell 
		make dialog column 
		tell the result 
			set startSizeField to make real editbox with properties {edit value:72} 
			set stopSizeField to make real editbox with properties {edit value:12} 
		end tell 
	end tell 
	set nu to show myDialog 
	if nu is true then 
		set startSize to edit value of startSizeField 
		set stopSize to edit value of stopSizeField 
	else 
		destroy myDialog 
		return 
	end if 
	set stepSize to (startSize - stopSize) / nChar 
	set curStep to startSize 
	repeat with n from 1 to nChar 
		set point size of character n of aSel to curStep 
		set curStep to curStep - stepSize 
	end repeat 
end tell