; Macro para ESPAÑOLIZAR palabras en inglés.
; Reemplazar plurales: tion/tions por ción/ciones
; Reemplazar isation por ización (más plurales)
; Restablecer el contenido del Portapapeles 
; www.gonduana.com/como-espanolizar-palabras-con-autohotkey/
; ¡Solo funcionará en Microsoft Word!
#IfWinActive ahk_exe WINWORD.EXE
^LButton::
	; Copiar TODO el contenido del Portapapeles
	portapapeles := ClipboardAll
	
	; Vacía el Portapapeles
	clipboard =
	; CONTROL+ C = copia el texto seleccionado
	SendInput ^c
	; Espera a que el Portapapeles tenga contenido
	ClipWait
	; Reemplazar contenido del Portapapeles por otra cadena.
	; Resultado: en el mismo Portapapeles
	cambios := 0
	StringReplace, clipboard, clipboard, isations, izaciones, All, ErrorLevel
	if ErrorLevel = 0
		cambios := cambios + 1
	StringReplace, clipboard, clipboard, isation, ización, All, ErrorLevel
	if ErrorLevel = 0
		cambios := cambios + 1
	StringReplace, clipboard, clipboard, tions, ciones, All, ErrorLevel
	if ErrorLevel = 0
		cambios := cambios + 1
	StringReplace, clipboard, clipboard, tion, ción, All, ErrorLevel
	if ErrorLevel = 0
		cambios := cambios + 1

	; Comprobando que la tecla CONTROL está levantada
	while GetKeyState("Control", P)
		Sleep, 20

	; Escribir contenido del Portapapeles
	if cambios
		SendInput %clipboard%
	
	; Devolver contenido original al Portapapeles
	Clipboard = %portapapeles%	
	; Liberar memoria de la variable temporal
	portapapeles =
return
; Final de #IfWinActive de los programas seleccionados
#IfWinActive