–現在選択中の表オブジェクトを取得
set curTable to returnSelectedTableOnCurrentSlide() of me
if curTable = false then return

–現在選択中の表オブジェクト中の選択範囲中のセルをすべて取得（1D List）
using terms from application "Pages"
　　tell curTable
　　　　set cellList to every cell of selection range
　　end tell
end using terms from

–２列目から末尾までの列幅を均等に変更する
using terms from application "Pages"
　　tell curTable
　　　　set cCount to count every column
　　　　set cWidth to width of every column
　　　　
　　　　–表の幅を取得したら、0が返ってきたので、各カラム幅を合計した
　　　　set aWidth to calcSumFrom1DList(cWidth) of me
　　　　
　　　　set aveWidth to (aWidth – (first item of cWidth)) / (cCount – 1)
　　　　
　　　　–いったん幅を少なくしておく（予備動作）
　　　　–途中で幅がページ幅をオーバーすると最終的な表の幅がおかしくなるので、この処理がないとおかしくなる
　　　　repeat with i from 2 to cCount
　　　　　　set width of column i to 10
　　　　end repeat
　　　　
　　　　–カラム幅を変更する
　　　　repeat with i from 2 to cCount
　　　　　　set width of column i to aveWidth
　　　　end repeat
　　end tell
end using terms from

–1D List中の数値を合計して返す
on calcSumFrom1DList(aList)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　return (anArray’s valueForKeyPath:"@sum.self")’s intValue()
end calcSumFrom1DList