View Single Post
The following script will delete all of the selected columns.

Code:
tell application "OmniOutliner Professional"
	tell front document
		set theCols to every selected column
		repeat with theCol in theCols
			delete theCol
		end repeat
	end tell
end tell