| 1 | #Requires AutoHotkey v2.0 |
| 2 | OnError((exception, mode) => (FileAppend(exception.Message, "**"), ExitApp(1))) |
| 3 | app := ComObject("OneNote.Application") |
| 4 | app.NavigateTo("{2C90CD3D-EE7B-4FD1-9FE6-F67DE4BD37C2}{1}{B0}", "{40332BAB-F688-42D0-879E-15011BE0321C}{40}{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("{2C90CD3D-EE7B-4FD1-9FE6-F67DE4BD37C2}{1}{B0}", "{40332BAB-F688-42D0-879E-15011BE0321C}{40}{B0}", false) |
| 13 | Sleep 300 |
| 14 | Send "{Left}^+{-}{Delete}" |
| 15 | Sleep 300 |