🚀 go-pugleaf

Well, I'm close. My version integrates it into a search & replace... Unfortunately I'm getting sentence case with small caps, and I can't figure it out. It's on ID's end, I'm sure of that. How do I get that first letter to go small caps?  

-- What we're searching for 

set this_text to {"DFID", "WHO", "UNICEF", "GEM"} 

tell application "InDesign 2.0.1" 

set find preferences to nothing 

set change preferences to nothing 

end tell 

-- Replace with small caps 

repeat with y from 1 to count of this_text 

tell application "InDesign 2.0.1" 

search stories of active document with find attributes � 

{applied font:"ITC Galliard", find text:(item y of this_text)} 

end tell 

makeLowerCase(item y of this_text) 

set the_new_text to result 

--display dialog the_new_text 

tell application "InDesign 2.0.1" 

	search stories of active document with change attributes {change text:(the_new_text), capitalization:small caps} 

end tell 

end repeat 

-- AND HERE I'M REPEATING CARL'S SUBROUTINE 

on makeLowerCase(text_to_change) 
	set the_upper_string to "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
	set the_lower_string to "abcdefghijklmnopqrstuvwxyz" 
	set the_new_text to "" 
	repeat with thisChar in text_to_change 
		set x to offset of thisChar in the_upper_string 
		if x is not 0 then 
			set the_new_text to (the_new_text & character x of the_lower_string) as string 
		else 
			set the_new_text to (the_new_text & thisChar) as string 
		end if 
	end repeat 
	return the_new_text 
end makeLowerCase