| 1 | #Requires AutoHotkey v2.0 |
| 2 | OnError((exception, mode) => (FileAppend(exception.Message, "**"), ExitApp(1))) |
| 3 | app := ComObject("OneNote.Application") |
| 4 | app.NavigateTo("{3F7D85A7-2787-4DAA-B157-6E9FCFF94F28}{1}{B0}", "{8B6736A9-E8D2-47EA-BE99-3B0D9C0B147E}{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("{3F7D85A7-2787-4DAA-B157-6E9FCFF94F28}{1}{B0}", "{8B6736A9-E8D2-47EA-BE99-3B0D9C0B147E}{45}{B0}", false) |
| 13 | Sleep 300 |
| 14 | Send "{Left}^+{-}!+{Down}" |
| 15 | Sleep 300 |