Notational Velocity to Taskpaper

nv_to_taskpaper.applescript

tell application "Finder"
    close every window
    tell application "Notational Velocity"
        activate
        tell application "System Events"
            key code 15 using shift down & command down
            tell application "Finder"
                delay 0.25
                set TaskP to selection as text
                set TaskP to quoted form of POSIX path of TaskP
                    tell application "TaskPaper"
                        activate
                        do shell script "open -a 'TaskPaper' " & TaskP
                end tell
            end tell
        end tell
    end tell
end tell