AutoHotkey codes for translators

This is a list of AutoHotkey shortcuts that I find useful. You can learn more about AutoHotkey on their website.

SendMode Input
<^>!d:: Run, C:\Users\theri\Downloads
<^>!c:: Run, https://calendar.google.com/calendar/
<^>!f:: Run, https://www.facebook.com/
<^>!t:: Run, https://twitter.com/

:R*?:ddd:: ;INSERT SHORT DATE E.G. 05/07/2019
FormatTime, CurrentDateTime,, dd/MM/yy
SendInput %CurrentDateTime%
Return

:R*?:ssdd:: ;INSERT DATE FORMAT SUCH AS 5 July 2019
FormatTime, CurrentDateTime,, d MMMMMMMMM yyyy
SendInput %CurrentDateTime%
Return

<^>!n:: ;STUDIO – ADD COMMENT “CHECK LATER”
Send, ^+n
Sleep 200
Send, Check later
Send, {Enter}
Return

; OPEN CALCULATOR
#C:: Run Calc.exe

; OPEN SNIPPING TOOL
s:: Run, %windir%\system32\SnippingTool.exe

<^>!h:: ;EDIT AUTOHOTKEY FILE
Run, C:\Windows\Notepad.exe “[FILE LOCATION]\General AHK.ahk”

<^>!/:: ;COPY TEXT FROM ONE APP TO ANOTHER AND PASTE – ALTGR /
Send, ^c
Send, !{Tab}
Sleep 200
Send, ^v
Send, {Enter}
Return

SendMode Input
<^>!m:: ; MINIMISE CHROME
WinGet nChromeWindows, Count, ahk_class Chrome_WidgetWin_1
WinMinimize ahk_class Chrome_WidgetWin_1
Return

SendMode Input
<^>!+m:: ; RE-OPEN CHROME
WinRestore, ahk_class Chrome_WidgetWin_1
Winactivate, ahk_class Chrome_WidgetWin_1
WinMaximize, ahk_class Chrome_WidgetWin_1
Return

!Right:: ;MOVE WORD TO RIGHT
Send, ^{Right}+^{Left}
Send, ^x
Send, ^{Right}
Send, ^v
Send, ^{Left}
Return

!Left:: ;MOVE WORD TO LEFT
Send, ^{Right}+^{Left}
Send, ^x
Send, ^{Left}
Send, ^v
Send, ^{Left}
Return

::rrr::[Redacted]
::bbb::[Barcode]
::sss::[Signature]
::iiss::[Illegible stamp]
::iill::[Illegible]
::sstt::[Stamp:]

<^>!;:: Send, ñ
<^>!+;:: Send, Ñ
::@@::Richard@Contractually-Speaking.co.uk

^+F3::
; written by Steven Marzuola, May 2015. This is to remove initial caps from list of minor words below, after toggling selected text with F3.
; as written, is called using Ctrl-F3

{
MinorWords := “a,an,and,also,this,that,these,those,are,as,at,be,but,by,de,for,from,in,is,it,of,on,or,out,the,to,with,nor,so,of”
MajorWords := Format ( “{:Us}”, “I,II, III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,XIX,XX,XXI,XXII,XXIII,XXIV,XXV,XXVI,XXVII,XXVIII,XXIX,XXX,XXXI,XXXII,XXXIII,XXXIV,XXXV,XXXVI,XXXVII,XXXVIII,XXXIX,XL” )

Clipboard =
SendInput, ^c
Clipwait
rString := “”

string := StrReplace(ClipBoard, “-“, ” – “)
string := StrReplace(string, “/”, ” / “)
string := StrReplace(string, “&”, ” & “)
string := Format( “{:Ts}”, string )
wordList := StrSplit( string, ” ” )
for each, word in wordList
{
if( each > 1 and each < wordList.MaxIndex() )
if word in %MinorWords%
word := Format( “{:Ls}”, word )
if word in %MajorWords%
word := Format( “{:Us}”, word )
rString .= word . ” “
}
string := SubStr( rString, 1, -1 )
string := StrReplace(string, ” / “, “/”)
string := StrReplace(string, ” – “, “-“)
string := StrReplace(string, ” & “, “&”)
string := StrReplace(string, ” “, ” “)
Clipboard := % string
Clipwait
SendInput, ^v
return


}