🚀 go-pugleaf

Ted,

Try this:



tell application "InDesign 2.0.2" 
	set find preferences to nothing 
	set change preferences to nothing 
	set myDocument to active document 
	set myFindList to {"John", "Paul", "George", "Ringo"} 
	set myChangeList to {"Crosby", "Stills", "Nash", "Young"} 
	tell myDocument 
		if (count myFindList) is not equal to (count myChangeList) then 
			activate 
			display dialog "Lists do not match!" buttons {"cancel"} 
		end if 
		repeat with i from 1 to (count myFindList) 
			set myFindThis to item i of myFindList 
			set myChangeThis to item i of myChangeList 
			set myFoundItems to {}

			set myFoundItems to search myDocument with find attributes {find text:myFindThis, whole word:true}

			try 
				myFoundItems 
			on error 
				set myFoundItems to {} 
			end try

			if (count myFoundItems) > 0 then 
				repeat with j from (count myFoundItems) to 1 by -1 
					set myFoundItem to item j of myFoundItems 
					set contents of myFoundItem to myChangeThis 
				end repeat 
			end if

		end repeat 
	end tell 
end tell



I don't know what will happen w/ your "San Francisco" sample, as it is more than one word. You might have to ax the

whole word:true

bit. Let me know if this works for you.

Jay