OmniFocusのTaskを明日に延期するスクリプト

期限迄に終わらなかったタスクの期限を明日に設定（延期）するスクリプト。
期限迄に終わらせろよという突っ込みは無しで・・・。

tell application "OmniFocus"
	tell front document
		tell document window 1
			set theSelectedItems to selected trees of content

			set tomorrow to (current date) + 1 * days

			repeat with theItem in theSelectedItems
				set theTask to value of theItem
				set dueDate to due date of theTask

				if dueDate is not missing value then
					if dueDate < tomorrow then
						set due date of theTask to tomorrow
					end if
				end if
			end repeat
		end tell
	end tell
end tell