| 1 | #Requires AutoHotkey v2.0 |
| 2 | OnError((exception, mode) => (FileAppend(exception.Message, "**"), ExitApp(1))) |
| 3 | app := ComObject("OneNote.Application") |
| 4 | app.NavigateTo("{13DB2155-80B0-4789-8875-37E369FEB7C7}{1}{B0}", "{6FC1F2DD-27CB-41FF-88F4-6F22A1A31468}{45}{B0}", false) |
| 5 | hwnd := WinWait("ahk_class Framework::CFrame ahk_exe ONENOTE.EXE",, 10) |
| 6 | if !hwnd |
| 7 | throw Error("OneNote window did not appear") |
| 8 | WinMaximize(hwnd) |
| 9 | WinActivate(hwnd) |
| 10 | if !WinWaitActive(hwnd,, 10) |
| 11 | throw Error("OneNote did not become active") |
| 12 | app.NavigateTo("{13DB2155-80B0-4789-8875-37E369FEB7C7}{1}{B0}", "{6FC1F2DD-27CB-41FF-88F4-6F22A1A31468}{45}{B0}", false) |
| 13 | Sleep 300 |
| 14 | Send "{Left}^+{-}!+{Down}" |
| 15 | Sleep 300 |