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