View Single Post
A variant on this useful theme -

This version:
  1. Appends to (rather than replacing) the existing note
  2. Leaves the notes of the selected rows expanded, so that the result is visible

Code:
property pDlgTitle : "APPEND CLIPTEXT TO NOTES (SELECTED ROWS)"

try
	set strClip to Unicode text of (the clipboard as record)
	if length of strClip > 0 then
		tell application "OmniOutliner Professional"
			tell front document
				set refRows to a reference to selected rows
				repeat with oRow in refRows
					set strNote to note of oRow
					if length of strNote > 0 then
						set note of oRow to strNote & return & strClip
					else
						set note of oRow to strClip
					end if
				end repeat
				set note expanded of refRows to true
			end tell
		end tell
	else
		display dialog "Clipboard empty ..." with title pDlgTitle
	end if
on error
	display dialog "No text in Clipboard ..." with title pDlgTitle
end try
--

Last edited by RobTrew; 2010-05-06 at 03:27 AM..