🚀 go-pugleaf

I posted the search - replace - bomb thread and Shane came up with a workaround for that involved a whose clause the may be of some help... the script is something I use for a particular writer that I have not been able to educate: 

tell application "InDesign 2.0.1" 
	set find preferences to nothing 
	set change preferences to nothing 
	tell active document 
		repeat 
			try 
				set myfoundspaces to search for " " replacing with " " 
				if myfoundspaces = {} then 
					exit repeat 
				end if 
			on error 
				exit repeat 
			end try 
		end repeat 
	end tell 



	tell active document 
		repeat 
			try 
				set myFoundparas to search for "^p. " replacing with "^p�^t" 
				if myFoundparas = {} then 
					exit repeat 
				end if 
			on error 
				exit repeat 
			end try 
		end repeat 
	end tell 



	tell active document 
		repeat 
			try 
				set myFoundtabs to search for "^t^t" replacing with "^t" 
				if myFoundtabs = {} then 
					exit repeat 
				end if 
			on error 
				exit repeat 
			end try 
		end repeat 
	end tell 



	tell active document 
		repeat 
			try 
				set myFoundparatab to search for "^p^t" replacing with "^p" 
				if myFoundparatab = {} then 
					exit repeat 
				end if 
			on error 
				exit repeat 
			end try 
		end repeat 
	end tell 



	tell active document 
		repeat 
			try 
				set myFoundparaspace to search for "^p " replacing with "^p" 
				if myFoundparaspace = {} then 
					exit repeat 
				end if 
			on error 
				exit repeat 
			end try 
		end repeat 
	end tell 



	tell active document 
		delete (every paragraph of every story whose contents = return) 
	end tell 
end tell