Deleting empty rows

[Curt Clifton]

Tom,

On Jun 17, 2006, at 11:37 AM, Tom Wolfe wrote:

> I've imported a rather lengthy document into OO Pro, and I've ended  
> up with many, many empty rows interspersed with the text. I'm  
> hoping somebody has an Applescript or other clever way to quickly  
> delete all the empty rows that they would care to share.

Below is a quick script that will select all empty rows in the front  
document.  Run the script, then hit the delete key to delete the  
selected, empty rows.

Cheers,

Curt


(* Select all empty rows.
    WARNING: selects rows with emtpy text even if they have non-empty  
children
    by Curt Clifton
*)
tell application "OmniOutliner Professional"
	tell front document
		set theRows to a reference to (every row whose topic is "")
		select theRows
	end tell
end tell