| 1 | #Requires AutoHotkey v2.0 |
| 2 | OnError((exception, mode) => (FileAppend(exception.Message, "**"), ExitApp(1))) |
| 3 | app := ComObject("OneNote.Application") |
| 4 | app.NavigateTo("{ED4F957C-5F6C-49AA-A0CD-A58F8B941BE8}{1}{B0}", "{D2D2C591-9007-4DF6-BD05-7F0BD6BDEFD9}{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("{ED4F957C-5F6C-49AA-A0CD-A58F8B941BE8}{1}{B0}", "{D2D2C591-9007-4DF6-BD05-7F0BD6BDEFD9}{45}{B0}", false) |
| 13 | Sleep 300 |
| 14 | Send "{Left}^+{-}!+{Right}" |
| 15 | Sleep 300 |