tell application "Adobe InDesign CS2" 
	tell active document 
		set mySel to selection 
		repeat with thisThing in mySel 
			set hae to class of thisThing 
			if class of thisThing = group then 
				my correctGroup(thisThing) 
			end if 
		end repeat 
	end tell 
end tell 
 
on correctGroup(thisGroup) 
	tell application "Adobe InDesign CS2" 
		tell thisGroup 
			if (absolute vertical scale = 100) and (absolute horizontal scale = 100) then 
			else 
				transform group contents 
			end if 
			 
			set inGroup to every page item of thisGroup 
			repeat with thisItem in inGroup 
				if class of thisItem is group then 
					my correctGroup(thisItem) 
				else if class of thisItem is text frame then 
					tell thisItem 
						if (absolute vertical scale = 100) and (absolute horizontal scale = 100) then 
						else 
							scale text attributes 
						end if 
					end tell 
				end if 
			end repeat 
		end tell 
	end tell 
end correctGroup