tell application “OmniOutliner Professional”
　　tell document 1
　　　　set aSel to every row whose selected is true
　　　　if aSel = {} then
　　　　　　display dialog “OmniOutliner上で選択されている行はありませんでした。” buttons {“OK”} default button 1
　　　　　　return
　　　　end if
　　end tell
end tell

–どの列を書き出すかを選択
tell application “OmniOutliner Professional”
　　tell document 1
　　　　set nList to name of every column
　　　　set aMes to “項目を選択してください（Command-クリックで複数選択可能）”
　　　　set numRes to retMultipleItemFromListByItemNo(nList, aMes) of me
　　end tell
end tell

–選択部分を検出
tell application “OmniOutliner Professional”
　　tell document 1
　　　　set aaSel to first item of aSel
　　　　tell aaSel
　　　　　　set aCell to text of every cell
　　　　　　set aCell to retSpecifiedItemFromList(numRes, aCell) of me
　　　　　　set the end of tList to aCell
　　　　　　set cList to every child
　　　　　　repeat with i in cList
　　　　　　　　getChildText(i) of me
　　　　　　end repeat
　　　　end tell
　　end tell
end tell

tList
–> {{”line2″, “”}, {”line3″, “●”}, {”line4″, “●”}, {”line5″, “”}}

–再帰で指定child以下のテキストをすべて取得する
on getChildText(aRoot)
　　tell application “OmniOutliner Professional”
　　　　tell document 1
　　　　　　tell aRoot
　　　　　　　　set aCell to text of every cell
　　　　　　　　set aCell to retSpecifiedItemFromList(numRes, aCell) of me
　　　　　　　　set the end of tList to aCell
　　　　　　　　
　　　　　　　　set cList to every child
　　　　　　　　repeat with i in cList
　　　　　　　　　　getChildText(i) of me –再帰処理
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end getChildText

–リストから選択してアイテム番号を返す（複数項目選択対応）
on retMultipleItemFromListByItemNo(aList, aMes)
　　set aRes to choose from list aList with prompt aMes with multiple selections allowed
　　if aRes = false then return 0
　　
　　set hitList to {}
　　repeat with i1 in aRes
　　　　set aRes to contents of i1
　　　　set hitNum to 1
　　　　repeat with i in aList
　　　　　　set j to contents of i
　　　　　　if j is equal to aRes then
　　　　　　　　exit repeat
　　　　　　end if
　　　　　　set hitNum to hitNum + 1
　　　　end repeat
　　　　set the end of hitList to hitNum
　　end repeat
　　return hitList
end retMultipleItemFromListByItemNo

–指定リストから、指定アイテム目を抽出して返す
on retSpecifiedItemFromList(itemNumList, dataList)
　　set newList to {}
　　repeat with i in itemNumList
　　　　set j to contents of i
　　　　set a to contents of (item j of dataList)
　　　　set the end of newList to a
　　end repeat
　　return newList
end retSpecifiedItemFromList

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “OmniOutliner Professional“
　　set dCount to count every document
　　if dCount = 0 then return
　　tell document 1
　　　　set aName to name
　　end tell
end tell

set aDeskPos to aDeskPos & aName as Unicode text

set exportType to “-//W3C//DTD HTML 4.01 Transitional//EN” as Unicode text

tell application “OmniOutliner Professional“
　　tell document 1
　　　　export to aDeskPos as exportType
　　end tell
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

if aclipText = “” then
　　display dialog “クリップボードに何もコピーされていないので、Outlinerへの転送処理を行えません。” buttons {”OK“} default button 1 with icon note
　　return
end if

tell application “OmniOutliner Professional“
　　set docCount to count every document
end tell
if docCount = 0 then
　　display dialog “Outlinerで何も書類がオープンされていないため、転送処理を行えません。” buttons {”OK“} default button 1 with icon note
　　return
end if

set pList to paragraphs of aclipText
repeat with i in pList
　　set j to contents of i
　　makeNewRowOnOutliner(j) of me
end repeat

–Outlinerの最前面のドキュメントに対して、新規行を作成
on makeNewRowOnOutliner(aText)
　　using terms from application “OmniOutliner Professional“
　　　　tell application “OmniOutliner Professional“
　　　　　　make with properties {topic:aText} new row at end of document 1
　　　　end tell
　　end using terms from
end makeNewRowOnOutliner

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に