Code: Select all
#Requires AutoHotkey v2.0
#SingleInstance force ; skips the dialog box and replaces the old instance of the script automatically
GroupAdd("Microsoft", "ahk_exe ONENOTE.EXE") ; Microsoft OneNote
GroupAdd("Microsoft", "ahk_exe OUTLOOK.EXE") ; Microsoft Outlook
GroupAdd("Microsoft", "ahk_exe EXCEL.EXE") ; Microsoft Excel
GroupAdd("Microsoft", "ahk_exe WINWORD.EXE") ; Microsoft Word
GroupAdd("Microsoft", "ahk_exe POWERPNT.EXE") ; Microsoft PowerPoint
GroupAdd("Microsoft", "ahk_exe VISIO.EXE") ; Microsoft Visio
GroupAdd("Microsoft", "ahk_exe PROJECT.EXE") ; Microsoft Project
GroupAdd("Microsoft", "ahk_exe PBIDesktop.EXE") ; Microsoft Power BI
;LEFT MONITOR (Win+Numpad)
#Numpad1::WinMove(X(&W,&H), 0, A_ScreenWidth//3+W, A_ScreenHeight-H, "A") ;Left 1//3
#Numpad3::WinMove(X(&W,&H)+A_ScreenWidth*2//3, 0, A_ScreenWidth//3+W, A_ScreenHeight-H, "A") ;Right 1//3
#Numpad4::WinMove(X(&W,&H), 0, A_ScreenWidth//2+W, A_ScreenHeight-H, "A") ;Left 1//2
#Numpad5::WinMove(X(&W,&H), 0, A_ScreenWidth+W, A_ScreenHeight-H, "A"), WinMaximize ;Left Fullscreen
#Numpad6::WinMove(X(&W,&H)+A_ScreenWidth//2, 0, A_ScreenWidth//2+W, A_ScreenHeight-H, "A") ;Right 1//2
#Numpad7::WinMove(X(&W,&H), 0, A_ScreenWidth*2//3+W, A_ScreenHeight-H, "A") ;Left 2//3
#Numpad9::WinMove(X(&W,&H)+A_ScreenWidth//3, 0, A_ScreenWidth*2//3+W, A_ScreenHeight-H, "A") ;Right 2//3
;RIGHT MONITOR (Win+Alt+Numpad)
#!Numpad1::WinMove(X(&W,&H)+A_ScreenWidth, 0, A_ScreenWidth//3+W, A_ScreenHeight-H, "A") ;Left 1//3
#!Numpad3::WinMove(X(&W,&H)+A_ScreenWidth*5//3, 0, A_ScreenWidth//3+W, A_ScreenHeight-H, "A") ;Right 1//3
#!Numpad4::WinMove(X(&W,&H)+A_ScreenWidth, 0, A_ScreenWidth//2+W, A_ScreenHeight-H, "A") ;Left 1//2
#!Numpad5::WinMove(X(&W,&H)+A_ScreenWidth, 0, A_ScreenWidth+W, A_ScreenHeight-H, "A"), WinMaximize ;Right Fullscreen
#!Numpad6::WinMove(X(&W,&H)+A_ScreenWidth*3//2, 0, A_ScreenWidth//2+W, A_ScreenHeight-H, "A") ;Right 1//2
#!Numpad7::WinMove(X(&W,&H)+A_ScreenWidth, 0, A_ScreenWidth*2//3+W, A_ScreenHeight-H, "A") ;Left 2//3
#!Numpad9::WinMove(X(&W,&H)+A_ScreenWidth*4//3, 0, A_ScreenWidth*2//3+W, A_ScreenHeight-H, "A") ;Right 2//3
X(&W,&H) {
WinActive("ahk_group Microsoft")?(XX:=0, W:=0, H:=40):(XX:=-7, W:=14, H:=33)
Return XX
}
