Emphasize Algorithm Keywords

--Applescript direct

on replaceText(find, replace, subject)
	set prevTIDs to text item delimiters of AppleScript
	set text item delimiters of AppleScript to find
	set subject to text items of subject
	
	set text item delimiters of AppleScript to replace
	set subject to "" & subject
	set text item delimiters of AppleScript to prevTIDs
	
	return subject
end replaceText

set replacedText to the content of the selection of the front document

set replacedText to replaceText("For","\\textbf{For}", replacedText)
set replacedText to replaceText("To","\\textbf{To}", replacedText)
set replacedText to replaceText("Do","\\textbf{Do}", replacedText)
set replacedText to replaceText("End","\\textbf{End}", replacedText)
set replacedText to replaceText("If","\\textbf{If}", replacedText)
set replacedText to replaceText("Else","\\textbf{Else}", replacedText)

tell application "TeXShop" to set the selection of the front document to replacedText

[Latex] Emhasize \textbf{} algorthim keywords in selected text in TexShop OSX.