adding rows in scripts

[sophos at mailcan.com]

After hours of battling through various script experiments that didn't 
work, I managed to write a script that splits a multi-line topic into 
multiple rows. I could only figure out how to insert the rows at the 
end of the current section.  I really wanted to insert them right after 
the selected row.  Any suggestions?

BTW, this script is really useful after a paste of multiple lines of 
text into an OOv3 row topic.

tell application "OmniOutliner Professional"
	set v_selrow to a reference to selected row 1 of front document
	set v_parent to a reference to parent of v_selrow
	set v_topic to topic of v_selrow
	repeat with v_p in paragraphs in v_topic
		make new row with properties {topic:v_p} at end of children of 
v_parent
	end repeat
end tell