AHK: Сохранить выделенный текст в файл

F5::
Send, ^{vk43}
     FileAppend, %clipboard%, C:\My Text File.vkp
         FileReadLine, OutputVar, C:\My Text File.vkp, 2
                 FileMove, C:\My Text File.vkp, C:\%OutputVar%.vkp 
MsgBox, Работа окончена.
return

F5::
Send, ^{vk43}
FileAppend, %clipboard%, C:\My Text File.vkp
Sleep 100
FileReadLine, String, C:\My Text File.vkp, 2
MsgBox Имя файла будет:`r "C:\%String%.vkp"
Sleep 100
FileMove, C:\My Text File.vkp, C:\%String%.vkp 
MsgBox, Работа окончена.
return

F5::
clipboard=
Send, ^{vk43}
String = %clipboard%
String := RegExReplace(String, "[\\""/|:?*<>]", "¦")
FileAppend, %String%, C:\My Text File.vkp
Sleep 100
FileReadLine, String, C:\My Text File.vkp, 2
MsgBox Имя файла будет:`r"C:\%String%.vkp"
Sleep 100
FileMove, C:\My Text File.vkp, C:\%String%.vkp 
MsgBox, Работа окончена.
return

RegExMatch(clipboard, "`am)(?:.*\R){1}\K.+$", Str)

loop, Parse, Clipboard, `n, `r
    if (A_index = 2) {
        str := A_LoopField
        break
    }