AHK: Исправление набранного в неверной раскладке текста

StringCaseSense On
#SingleInstance Force
en := "``qwertyuiop[]asdfghjkl;'zxcvbnm,./~@#$^&QWERTYUIOP{}|ASDFGHJKL:""ZXCVBNM<>?"
ru := "ёйцукенгшщзхъфывапролджэячсмитьбю.Ё""№;:?ЙЦУКЕНГШЩЗХЪ/ФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,"

1::
Clipboard =
Send, ^{vk43} ; Ctrl + C  
If Clipboard =
Return
savedClip := Clipboard
inputStr := Clipboard
inputStr ~= "i)[a-z]" ? (layoutIn := en, layoutOut := ru) : (layoutIn := ru, layoutOut := en)
outputStr := ""
Loop, Parse, inputStr
{
    IfNotInString, layoutIn, %A_LoopField%
        newChar := A_LoopField
    Else
        StringReplace, newChar, A_LoopField, %A_LoopField%, % SubStr(layoutOut, InStr(layoutIn, A_LoopField, True), 1), All                                                    ;% 
    outputStr .= newChar
}
Clipboard := outputStr
While !(Clipboard == outputStr)
    Sleep 10
Send, ^{vk56} ; Ctrl + V
Return

$>^>+Space::Goto, Конвертировать_весь_текст
;+Space::Goto, Конвертировать_только_всю_строку 
;^Space::Goto, Конвертировать_только_левую_часть_строки 

;****

Конвертировать_весь_текст:
KeyWait, % LTrim( A_ThisHotkey, "+|^|#|>|$|<|!")
MsgBox %A_ThisHotkey% х конвертировать_весь_текст
Return

#UseHook
Goto, Start

>^>+Space::KeyWait("Transform_all_text", "RCtrl|RShift|Space")
>+Space::KeyWait("Transform_only_last_line", "RShift|Space")
>^>!Space::KeyWait("Transform_only_right_part", "RCtrl|RAlt|Space")
>^Space::KeyWait("Transform_only_left_part", "RCtrl|Space")
>!Space::KeyWait("Transform_only_last_word", "RAlt|Space")
;KeyWait("SwitchLocale")                                                            

 ; --------------------------------------------------------------------------------------------
Start:
    #NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
    SendMode Input 
    StringCaseSense, On
    #SingleInstance, Force
    SetBatchLines, -1
    SetKeyDelay, 10
    en := "``qwertyuiop[]asdfghjkl;'zxcvbnm,./~@#$^&QWERTYUIOP{}|ASDFGHJKL:""ZXCVBNM<>?"
    ru := "ёйцукенгшщзхъфывапролджэячсмитьбю.Ё""№;:?ЙЦУКЕНГШЩЗХЪ/ФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,"
    Return
    
Transform_all_text:                ; Transform all text
    savedClip := Clipboard
    Sleep 1
    Send ^{vk41}^{vk43}
    Sleep 1
    Clipboard := transformTextLayout(Clipboard)
    Sleep 1
    Send ^{vk56}
    Clipboard := savedClip
    savedClip := ""
    Return

Transform_only_last_line:                ; Transform only last line (full line)
    savedClip := Clipboard
    Sleep 1
    Send {End}+{Home}^{vk43}
    Sleep 1
    Clipboard := transformTextLayout(Clipboard)
    Sleep 1
    Send ^{vk56}
    Clipboard := savedClip
    savedClip := ""
    Return

Transform_only_left_part:                ; Transform only (left) part of a line (from the beginning of the line to the caret)
    savedClip := Clipboard
    Sleep 1
    Send +{Home}^{vk43}
    Sleep 1
    Clipboard := transformTextLayout(Clipboard)
    Sleep 1
    Send ^{vk56}
    Clipboard := savedClip
    savedClip := ""
    Return

Transform_only_left_right:                ; Transform only (right) part of a line (from the beginning of the line to the caret)
    savedClip := Clipboard
    Sleep 1
    Send +{End}^{vk43}
    Sleep 1
    Clipboard := transformTextLayout(Clipboard)
    Sleep 1
    Send ^{vk56}
    Clipboard := savedClip
    savedClip := ""
    Return

Transform_only_last_word:                ; Transform only last word
    savedClip := Clipboard
    Sleep 1
    Loop
    {
        Send ^+{Left}
        If A_LoopField = 1
            Continue
        Else
            Send ^{vk43}
        Sleep 1
        IfInString, Clipboard, %A_Space%
        {
            Send ^+{Right}^{vk43}
            Sleep 1
            Break
        }
    }
    Clipboard := transformTextLayout(Clipboard)
    Sleep 1
    Send ^{vk56}
    Clipboard := savedClip
    savedClip := ""
    Return

transformTextLayout(textContainer)
    {
        Global en, ru
        textContainer ~= "i)[a-z]" ? (layoutIn := en, layoutOut := ru) : (layoutIn := ru, layoutOut := en)
        Loop, Parse, textContainer
        {
            IfNotInString, layoutIn, %A_LoopField%
                newChar := A_LoopField
            Else
                StringReplace, newChar, A_LoopField, %A_LoopField%, % SubStr(layoutOut, InStr(layoutIn, A_LoopField, True), 1)
            outputStr .= newChar
        }
        textContainer := outputStr
        outputStr := layoutIn := layoutOut := newChar := ""
        Return textContainer
    }
    
SwitchLocale:
    WinGet,ID,id,A
    ThreadID:=DllCall("GetWindowThreadProcessId", UInt, ID, UInt, 0)
    InputLocaledID:=DllCall("GetKeyboardLayout", UInt, ThreadID, UInt)
    if % InputLocaledID=Localed1
        SendMessage,0x50,0,%Localed2%,,ahk_id %ID%
    else if % InputLocaledID=Localed2
        SendMessage,0x50,0,%Localed1%,,ahk_id %ID%
    else
        SendMessage,0x50,0,%Localed2%,,ahk_id %ID%
    MouseGetPos,x,y
    InputLocaledID:=DllCall("GetKeyboardLayout", UInt, ThreadID, UInt)
    CoordMode,tooltip,Relative
    if % InputLocaledID=Localed1
        ToolTip,Английский,A_CaretX+10,A_CaretY-20,3
    else if % InputLocaledID=Localed2
        ToolTip,Русский,A_CaretX+10,A_CaretY-20,3
    CoordMode,tooltip,Screen
    SetTimer,RemoveToolTip,1000
    return
    RemoveToolTip:
    ToolTip
    return
    
KeyWait(Label, Buttons = "") {
    Loop, Parse, Buttons, |
        KeyWait, %A_LoopField%
    Gosub, %Label%
}