Sytone's Ramblings

Here is Version 1.1 of the script, it has some logging and I have tried to make the config simpler. I use OneNote more and more in my daily work. I wanted to have the ability to make a journal function accessible from anywhere.

Goal:To be able to hit Win+J and have OneNote open the right page and date and time stamp the entry.

Outcome:

When I hit Win+J it opens OneNote at the right week (I have one page per week with the heading of Week 1, Week 2, …, Week 52) goes to the end of the entry and inserts a line and then makes a check box with the date and time as the value.

This allows me to simplify my weekly review as it is hard to miss a checkbox with a date in it. Also it now has the start as a ever increasing number so the tasks are soreted in the list for review time.

I also created a second function Ctrl+Shift+Alt+Win+J which makes 52 pages in OneNote (You need to have the section open that you want the pages created in) for the journal.

Configuration:

You will need to modify the OneNote Url in the code. This is at the top of the file.

OneNoteJournalSection := “onenote:< PATH TO SECTION STORING WEEKLY PAGES >”

Example:
Using a Windows Live SkyDrive synced path. This will open the local copy of the OneNote file.
OneNoteJournalSection := “onenote:https://wh7jutsd.docs.live.net/fac74a8d9c9b9a9c9d/%5e.Documents/My%20Journal/2011%20Journal.one”

Code:

; Goes to the week in OneNote for the journal.
; Created by Jon Bullen (http://www.sytone.com)
; Leave a comment on the site if you have issues.
; V1.1
; Added logging and set default to the ISO week. Play with number if you need to shift the week number.
;
; V1.0
; - Inital Version to the World
;
;

#SingleInstance force
#NoTrayIcon

;
; Set the path below to the section containing the week pages.
;
OneNoteJournalSection := "onenote:PATH_TO_SECTION_STORING_WEEKLY_PAGES"

;
; If you need to offset the week modify the offset below.
;
JournalWeekOffset := 1

#j::
; ---------------------------------------------------------------------------------------------
; You should not have to modify anything below here.. I said should 
;

OneNoteUrl := OneNoteJournalSection . "#Week%20"

FileRecycle, %A_ScriptFullPath%.log
FormatTime, TimeString , , hh:mm:ss

StringRight, WeekNumber, A_YWeek, 2
FileAppend, %TimeString% WeekNumber: %A_YWeek% `n,  %A_ScriptFullPath%.log
FileAppend, %TimeString% WeekNumber: %WeekNumber% `n,  %A_ScriptFullPath%.log

;StringReplace, WeekNumber, WeekNumber, 0, ,All
FileAppend, %TimeString% WeekNumber: %WeekNumber% `n,  %A_ScriptFullPath%.log

; Allows you to offset the week if needed.
;FWIW... I found a solution for Win7 in this old thread: http://www.autohotkey.com/forum/topic991.html
;HKEY_CURRENT_USER\Control Panel\International\iFirstWeekOfYear
WeekNumber := WeekNumber + JournalWeekOffset 

FileAppend, %TimeString% WeekNumber: %WeekNumber% `n,  %A_ScriptFullPath%.log
FileAppend, %TimeString% FullURL: %OneNoteUrl%%WeekNumber% `n,  %A_ScriptFullPath%.log

Run, %OneNoteUrl%%WeekNumber%

; Generate Date and Time Stamp
FormatTime, TimeStringShort,, yyyyMMddHHmmss
FormatTime, TimeStringLong,,  dddd MMMM d, yyyy HH:mm:ss

WinWaitActive, Week %WeekNumber% - Microsoft OneNote
Sleep, 500
SendInput, ^{End}
SendInput, ^{End}
Sleep, 500
SendInput, {Enter}{Enter}
SendInput, -----------------------------------------------
Sleep, 500
SendInput, {Enter}
SendInput, ^1
SendInput, (%TimeStringShort%) %TimeStringLong%
SendInput, {Enter}

return

; Create all the weeks in the year in the current section.
; To use this Create a new section on OneNote
; Click in the title of the first untilted page.
; Press Shift+Ctrl+Win+Alt+J and it will make the pages.
#+!^j::
;Run, %OneNoteUrl%
Loop, 52
{
	SendInput, ^n
	SendInput, Week %A_Index%
	Sleep, 300
}

return

I use OneNote more and more in my daily work. I wanted to have the ability to make a journal function accessible from anywhere.

Goal :To be able to hit Win+J and have OneNote open the right page and date and time stamp the entry.

Outcome:

When I hit Win+J it opens OneNote at the right week (I have one page per week with the heading of Week 1, Week 2, …, Week 52) goes to the end of the entry and inserts a line and then makes a check box with the date and time as the value.

This allows me to simplify my weekly review as it is hard to miss a checkbox with a date in it.

I also created a second function Ctrl+Shift+Alt+Win+J which makes 52 pages in OneNote (You need to have the section open that you want the pages created in) for the journal.

Configuration:

You will need to modify the OneNote Url in the code.

; Set the path below to the section containing the week pages and ensure it ends with #Week%20
OneNoteUrl := “onenote:< PATH TO SECTION CALLED 2011 Journal >/2011%20Journal.one#Week%20“

Code:

; Goes to the week in OneNote for the journal.
; Created by Jon Bullen (<a href="http://www.sytone.com)">http://www.sytone.com)</a>
; Leave a comment on the site if you have issues.

#SingleInstance force
#NoTrayIcon

#j::
; Set the path below to the section containing the week pages and ensure it ends with #Week%20
OneNoteUrl := "onenote:&lt; PATH TO SECTION CALLED 2011 Journal &gt;/2011%20Journal.one#Week%20"

StringRight, WeekNumber, A_YWeek, 2
StringReplace, WeekNumber, WeekNumber, 0, ,All
; Hack to match Outlook... Works for 2011...
WeekNumber := WeekNumber + 1

Run, %OneNoteUrl%%WeekNumber%

WinWaitActive, Week %WeekNumber% - Microsoft OneNote
Sleep, 500
SendInput, ^{End}
SendInput, ^{End}
SendInput, {Enter}{Enter}
SendInput, -----------------------------------------------
Sleep, 500
SendInput, {Enter}
SendInput, ^1
SendInput, !+D
SendInput, {Space}
SendInput, !+T
SendInput, {Enter}

return

; Create all the weeks in the year in the current section.
#+!^j::

Loop, 52
{
SendInput, ^n
SendInput, Week %A_Index%
Sleep, 100
}

return