| 1 | #Requires AutoHotkey v2.0 |
| 2 | OnError((exception, mode) => (FileAppend(exception.Message, "**"), ExitApp(1))) |
| 3 | app := ComObject("OneNote.Application") |
| 4 | app.NavigateTo("{BE6416CA-DCE5-4E1E-8258-1F4E46F2EE1F}{1}{B0}", "{54CC9973-5534-4978-B65D-E22FE3045B84}{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("{BE6416CA-DCE5-4E1E-8258-1F4E46F2EE1F}{1}{B0}", "{54CC9973-5534-4978-B65D-E22FE3045B84}{45}{B0}", false) |
| 13 | Sleep 300 |
| 14 | Send "{Left}^+{-}{Delete}" |
| 15 | Sleep 300 |