🚀 go-pugleaf

Aaron, 

Your script works really well. It appears you need to make one slight modification. In your repeat statement, change this section: 
 
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 
 
to be like the modified bit below, then you're there. 
 
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), case sensitive:true} 
end tell 
 
The sentence case goes away when you add the find attribute "case sensitive:true" then you get what you want. Also, the subroutine was Dave's... 

So here's your whole script with the changes: 

 
-- 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), case sensitive:true} 
	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 DAVE'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 
 

Thanks, 

Carl