Copy and Paste to OneNote (AutoHotKey script)
http://it.knightnet.org.uk/2009/04/copy-and-paste-to-onenote-autohotkey-script.html
After yesterdays OneNote tool, I thought I’d do another while I think about it.
Another annoyance of OneNote is it’s lack of control over pasting information from the clipboard. I’ve
raised a suggestion with MS to improve this; you can see my
comment in the newsgroup.
To ease things a little if you need to copy and paste lots of stuff to
OneNote, here is an
AutoHotKey script to help. You need to assign this to a hot-key and have
OneNote open in the background. Select something and press the hot-key and it will be pasted (using the current default paste option as this cannot be controlled) into the current note in
OneNote.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
; <A class="st_tag internal_tag" title="Posts tagged with AutoHotKey" href="http://it.knightnet.org.uk/tags/autohotkey" rel=tag>AutoHotKey</A> ; to the currently open note in OneNote ; ; Usage: #include in your main <A class="st_tag internal_tag" title="Posts tagged with AutoHotKey" href="http://it.knightnet.org.uk/tags/autohotkey" ; Limitations:
; 1) OneNote must be open - maybe change this in the future so that content goes to a new unfiled note ; 2) Doesn't swap back to original application ; ; Author: Julian Knight, ; Version: 2009-04-01 v1.0 ; We need a partial title match but we will also reset to previous setting oldTitleMatchMode := A_TitleMatchMode SetTitleMatchMode, 2 ; Settings
winTitlePart := " - Microsoft <A class="st_tag internal_tag" title="Posts tagged with Office" href="http://it.knightnet.org.uk/tags/office" ; Copy currently selected stuff SendPlay, ^c ; Use sendplay to avoid unexpected interactions with Win key ; If OneNote is not started, give up IfWinExist, %winTitlePart% { ; Save the currently active window title WinGetTitle, actWin, A ; If OneNote is not active, activate it now IfWinNotActive, %winTitlePart% WinActivate, %winTitlePart% ; Check again, if ON active then paste else error IfWinActive, %winTitlePart% { ; Paste to ON & Add some blank lines SendPlay, ^v`r ; Use sendplay to avoid unexpected interactions with Win key ; Switch window back to previously active WinActivate, %actWin% } else MsgBox, Could not activate OneNote window. } else MsgBox, Can't find ON [%winTitlePart%] SetTitleMatchMode, %oldTitleMatchMode% return |