Guest
2010-05-06, 02:05 AM
A variant on this useful theme -
This version:
- Appends to (rather than replacing) the existing note
- 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..