Applescript to collect text from selection
 

Here's an AppleScript I use to collect all the text from multiple simple objects. This is handy when I've built up a sitemap as a diagram, and want to paste just the text into a spreadsheet.

It assumes the objects are arranged layer-wise in the order you want them.

[CODE]
tell application id "OGfl"
tell front window
set theSelection to the selection
set numItems to length of theSelection
set theText to ""
repeat with itemNo from 1 to numItems
set theText to theText & (text of item (numItems - itemNo + 1) of theSelection) & return
end repeat
end tell
display dialog "The text:" default answer (theText as text)
end tell
[/CODE]