Copy and Paste to OneNote (AutoHotKey script)

Copy and Paste to OneNote (AutoHotKey script)

http://it.knightnet.org.uk/2009/04/copy-and-paste-to-onenote-autohotkey.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

; AutoHotKey Script to copy pre-selected stuff from the currently active window

; to the currently open note in OneNote

;

; Usage: #include in your main AutoHotKey.ahk assigned to a hot key

; 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, http://www.knightnet.org.uk/contact.htm

; 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 Office OneNote"   ; Partial title of ON windows

  

; 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

Technorati : , , , , , ,
Diigo Tag Search : , , , , , ,

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值