tell application "Keynote"
　　tell front document
　　　　set aSel to selection
　　　　set fObj to class of first item of aSel
　　　　if fObj is not equal to table then
　　　　　　display notification "tableが選択されていません"
　　　　　　return
　　　　end if
　　　　
　　　　tell current slide
　　　　　　try
　　　　　　　　set theTable to first table whose class of selection range is range
　　　　　　on error
　　　　　　　　display notification "table中のセル（カラム）が選択されていません"
　　　　　　　　return –何も選択されてなかった場合
　　　　　　end try
　　　　　　
　　　　　　tell theTable
　　　　　　　　
　　　　　　　　set vList to address of column of every cell of selection range
　　　　　　　　set vUList to uniquify1DList(vList) of uniquifyKit of me
　　　　　　　　
　　　　　　　　–均等割したカラム幅を計算
　　　　　　　　set totalW to 0
　　　　　　　　repeat with i in vUList
　　　　　　　　　　tell column i
　　　　　　　　　　　　set tmpW to width
　　　　　　　　　　　　set totalW to totalW + tmpW
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　　　
　　　　　　　　–選択カラム幅に均等割した幅を設定
　　　　　　　　set aColW to totalW / (length of vUList)
　　　　　　　　repeat with i in vUList
　　　　　　　　　　tell column i
　　　　　　　　　　　　set width to aColW
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　　　
　　end tell
end tell

script uniquifyKit
　　use scripting additions
　　use framework "Foundation"
　　property parent : AppleScript
　　
　　on uniquify1DList(theList as list)
　　　　set theSet to current application’s NSOrderedSet’s orderedSetWithArray:theList
　　　　return (theSet’s array()) as list
　　end uniquify1DList
end script

tell application "Pages"
　　tell front document
　　　　set aSel to selection
　　　　set fObj to class of first item of aSel
　　　　if fObj is not equal to table then
　　　　　　display notification "tableが選択されていません"
　　　　　　return
　　　　end if
　　　　
　　　　try
　　　　　　set theTable to first table whose class of selection range is range
　　　　on error
　　　　　　display notification "table中のセル（カラム）が選択されていません"
　　　　　　return –何も選択されてなかった場合
　　　　end try
　　　　
　　　　tell theTable
　　　　　　
　　　　　　set vList to address of column of every cell of selection range
　　　　　　set vUList to uniquify1DList(vList) of uniquifyKit of me
　　　　　　
　　　　　　–均等割したカラム幅を計算
　　　　　　set totalW to 0
　　　　　　repeat with i in vUList
　　　　　　　　tell column i
　　　　　　　　　　set tmpW to width
　　　　　　　　　　set totalW to totalW + tmpW
　　　　　　　　end tell
　　　　　　end repeat
　　　　　　
　　　　　　–選択カラム幅に均等割した幅を設定
　　　　　　set aColW to totalW / (length of vUList)
　　　　　　repeat with i in vUList
　　　　　　　　tell column i
　　　　　　　　　　set width to aColW
　　　　　　　　end tell
　　　　　　end repeat
　　　　　　
　　　　end tell
　　　　
　　end tell
end tell

script uniquifyKit
　　use scripting additions
　　use framework "Foundation"
　　property parent : AppleScript
　　
　　on uniquify1DList(theList as list)
　　　　set theSet to current application’s NSOrderedSet’s orderedSetWithArray:theList
　　　　return (theSet’s array()) as list
　　end uniquify1DList
end script