Rainbow Logs - Searches and Highlights paragraphs of a TextEdit document that contain a string query

rainbowLogs.txt

-- Action 1 - Get Contents of TextEdit Document
--  |
--  V
-- Action 2 - Custom Apple Script (Below)

on run {input, parameters}
	log "--------------------"
	set MyColor to choose color
	
	set FindText to the text returned of (display dialog "What string should we search for to highlight?" default answer "")
	
	log "Finding Text:"
	log FindText
	log "Occurences Matching Text:"
	
	tell application "TextEdit"
		--log paragraphs of front document
		set paragraphsArr to paragraphs of front document
		
		set numParagraphs to (count of paragraphsArr)
		tell me to log numParagraphs
		set counter to 0
		
		repeat with thisParagraph in paragraphsArr
			--tell me to log thisParagraph
			
			set counter to (counter + 1)
			tell me to log (counter / numParagraphs)
			
			if thisParagraph contains FindText then
				tell me to log thisParagraph as text
				--set color of thisParagraph to MyColor
				set color of (paragraph counter of front document) to MyColor
			end if
			
		end repeat
	end tell
	log "--------------------"
end run