I've updated the previously posted script to include any notes attached to the selected rows in OmniOutliner:
Code:
tell front document of application "OmniOutliner Professional"
-- set theDoc to front document
--set columnCount to count of columns of theDoc
set theList to the selected rows
set theCount to (count of selected rows)
if theCount < 1 then
display dialog "You need to select at least one row to use this script." buttons "Cancel" default button "Cancel"
end if
-- go through each selected row in OmniOutliner and then create a corresponding
-- action in the quick entry box of OF
set actionText to ""
repeat with i from 1 to theCount
set actionText to (get topic of item i of selected rows)
set actionNote to (get note of item i of selected rows)
-- create a new action in Omnifocus QuickEntry window
tell application "OmniFocus"
-- create new action
tell quick entry
open
set NewTask to make new inbox task with properties {name:actionText, note:actionNote}
end tell
end tell
end repeat
end tell