–現在選択中の表オブジェクトを取得
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

tell application "Pages"
　　tell front document
　　　　set aSel to selection
　　　　if aSel = {} then return
　　　　
　　　　set aTarg to first item of aSel
　　　　set aClass to class of aTarg
　　　　if aClass is not equal to table then return
　　　　
　　　　–選択中の表オブジェクトを処理対象に
　　　　tell aTarg
　　　　　　set rCount to count every row
　　　　　　set cCount to count every column
　　　　　　
　　　　　　set hCount to header row count
　　　　　　set fCount to footer row count
　　　　　　
　　　　　　set allData to value of every cell of cell range –表中の全セルのデータを取得（1Dで返ってくる）
　　　　　　set aRes to my subarraysFrom:(allData) groupedBy:(cCount) –1D Listの2D化
　　　　　　
　　　　　　set bRes to items (1 + hCount) thru (-1 – fCount) of aRes
　　　　　　set rList to reverse of bRes –逆順に
　　　　　　
　　　　　　–表にデータを書き戻す
　　　　　　repeat with rC from (1 + hCount) to (rCount – fCount)
　　　　　　　　tell row rC
　　　　　　　　　　repeat with cC from 1 to cCount
　　　　　　　　　　　　tell cell cC
　　　　　　　　　　　　　　set tmpVal to item cC of item (rC – hCount) of rList –けっこういい加減
　　　　　　　　　　　　　　if tmpVal = missing value then set tmpVal to ""
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　set value of it to tmpVal
　　　　　　　　　　　　end tell
　　　　　　　　　　end repeat
　　　　　　　　end tell
　　　　　　end repeat
　　　　　　
　　　　end tell
　　end tell
end tell

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

property NSString : a reference to current application’s NSString
property NSCharacterSet : a reference to current application’s NSCharacterSet
property NSMutableArray : a reference to current application’s NSMutableArray

set aRes to pagesTitleGetter() of me
–> "商標、著作権について"

on pagesTitleGetter()
　　set tiList to getLargestTextItem() of me –Text Item
　　set bList to getLargestBodyText() of me –Body Text
　　
　　if tiList = {} and bList = {} then return ""
　　if tiList = {} and bList ≠ {} then set allList to bList
　　if tiList ≠ {} and bList = {} then set allList to tiList
　　
　　set allList to tiList & bList
　　–> {{10.0, "Macrovector – jp.freepik.com によって作成された business ベクトル"}, {16.0, "商標、著作権について"}}
　　
　　set allRes to returnMaxItem(allList, 1, 2) of me
　　set bRes to repChar(allRes, string id 10, "") of me
　　set bRes to repChar(bRes, string id 13, "") of me
　　
　　return bRes
end pagesTitleGetter

–2D Listのうち、指定アイテム目の最大値をもとめ、その指定アイテムを返す
on returnMaxItem(aList, seekItemNum, retItemNum)
　　script spd
　　　　property aList : {}
　　end script
　　
　　set (aList of spd) to aList
　　
　　set tmpMax to 0
　　set tmpItem to 0
　　set aCount to 1
　　repeat with i in (aList of spd)
　　　　set tmpV to item seekItemNum of i
　　　　if tmpV > tmpMax then
　　　　　　copy tmpV to tmpMax
　　　　　　set tmpItem to aCount
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　return item retItemNum of item tmpItem of (aList of spd)
end returnMaxItem

–Pagesの最大文字サイズのText Item中の最大テキストを返す
on getLargestTextItem()
　　set rList to {}
　　
　　tell application "Pages"
　　　　if not running then return {}
　　　　if every document = {} then return {}
　　　　tell front document
　　　　　　set tmpList to every text item
　　　　　　if length of tmpList = 0 then return –テキストアイテムがない場合には処理終了
　　　　　　
　　　　　　set szList to size of object text of every text item
　　　　　　if szList is not equal to {} then
　　　　　　　　set aMaxPoint to calcMax(szList) of me –最大の文字サイズを取得
　　　　　　　　
　　　　　　　　–文字サイズが最大のテキストアイテムを抽出
　　　　　　　　–set resList to object text of every text item whose size of object text is aMaxPoint
　　　　　　　　set resList to every text item whose size of object text is aMaxPoint
　　　　　　　　
　　　　　　　　repeat with ii in resList
　　　　　　　　　　–指定のtet item内の文字のサイズをすべて取得
　　　　　　　　　　set cList to size of every character of object text of ii
　　　　　　　　　　
　　　　　　　　　　–文字サイズのうち最大のものを取得
　　　　　　　　　　set cMax to calcMax(cList) of me
　　　　　　　　　　
　　　　　　　　　　–最大サイズの文字のみ抽出
　　　　　　　　　　set cRes to (every character of object text of ii whose size = cMax)
　　　　　　　　　　set cText to cRes as string
　　　　　　　　　　
　　　　　　　　　　–取得したテキストの前後の改行などを削除してクリーンアップ
　　　　　　　　　　set c2Text to cleanUpTextFromHEadAndTail(cText) of me
　　　　　　　　　　
　　　　　　　　　　set c2Text to repChar(c2Text, string id 10, "") of me
　　　　　　　　　　set c2Text to repChar(c2Text, string id 13, "") of me
　　　　　　　　　　
　　　　　　　　　　–何か結果が得られていたら、リストに加える
　　　　　　　　　　if c2Text is not equal to "" then
　　　　　　　　　　　　set the end of rList to {cMax, c2Text}
　　　　　　　　　　end if
　　　　　　　　end repeat
　　　　　　end if
　　　　end tell
　　end tell
　　
　　return rList
　　–> {{10.0, "Macrovector – jp.freepik.com によって作成された business ベクトル"}}
end getLargestTextItem

on getLargestBodyText()
　　set esList to {}
　　
　　tell application "Pages"
　　　　if not running then return {}
　　　　if every document = {} then return {}
　　　　tell front document
　　　　　　set sCount to count every section
　　　　　　repeat with i from 1 to sCount
　　　　　　　　tell section sCount
　　　　　　　　　　set sList to size of every character of body text
　　　　　　　　　　if sList is not equal to {} then
　　　　　　　　　　　　set cMax to calcMax(sList) of me
　　　　　　　　　　　　
　　　　　　　　　　　　–最大サイズの文字のみ抽出
　　　　　　　　　　　　set cRes to (every character of body text of it whose size = cMax)
　　　　　　　　　　　　set cText to cRes as string
　　　　　　　　　　　　
　　　　　　　　　　　　–取得したテキストの前後の改行などを削除してクリーンアップ
　　　　　　　　　　　　set c2Text to cleanUpTextFromHEadAndTail(cText) of me
　　　　　　　　　　　　
　　　　　　　　　　　　set c2Text to repChar(c2Text, string id 10, "") of me
　　　　　　　　　　　　set c2Text to repChar(c2Text, string id 13, "") of me
　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　set tmpList to {cMax, c2Text}
　　　　　　　　　　　　
　　　　　　　　　　　　set the end of esList to tmpList
　　　　　　　　　　end if
　　　　　　　　end tell
　　　　　　end repeat
　　　　end tell
　　end tell
　　return esList
end getLargestBodyText

on repChar(origText as string, targStr as string, repStr as string)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

on calcMax(aList as list)
　　set nArray to (NSMutableArray’s arrayWithArray:aList)
　　set maxRes to (nArray’s valueForKeyPath:"@max.self")’s doubleValue()
　　return maxRes
end calcMax

on cleanUpTextFromHEadAndTail(aStr)
　　set aString to NSString’s stringWithString:aStr
　　set bStr to (aString’s stringByTrimmingCharactersInSet:(NSCharacterSet’s whitespaceAndNewlineCharacterSet()))
　　return bStr as string
end cleanUpTextFromHEadAndTail

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

property NSMutableArray : a reference to current application’s NSMutableArray

set aRes to getMaxTextFromTextItemsAndBodText() of me
–> {"テクノロジーが色彩（カラー）を決定している例は？"}–本文縦組みテキスト
–> {"AppleScript"}–テキストボックス組みテキスト

on getMaxTextFromTextItemsAndBodText()
　　set aRes to getMaxTextFromTextItems() of me
　　set bRes to getMaxTextFromBodyText() of me
　　
　　set aMax to maxSize of aRes
　　set bMax to maxSize of bRes
　　
　　if aMax > bMax then
　　　　return maxTextList of aRes
　　else
　　　　return maxTextList of bRes
　　end if
end getMaxTextFromTextItemsAndBodText

on getMaxTextFromTextItems()
　　tell application "Pages"
　　　　tell front document
　　　　　　set tmpList to every text item
　　　　　　if length of tmpList > 0 then
　　　　　　　　set szList to size of object text of every text item
　　　　　　　　set aMaxPoint to calcMax(szList) of me –最大の文字サイズを取得
　　　　　　　　
　　　　　　　　–文字サイズが最大のテキストアイテムを抽出
　　　　　　　　set resList to object text of every text item whose size of object text is aMaxPoint
　　　　　　else
　　　　　　　　set aMaxPoint to 0
　　　　　　　　set resList to {}
　　　　　　end if
　　　　　　return {maxSize:aMaxPoint, maxTextList:resList}
　　　　end tell
　　end tell
end getMaxTextFromTextItems

–本文テキストから最大文字サイズのテキストを取得する
on getMaxTextFromBodyText()
　　tell application "Pages"
　　　　tell front document
　　　　　　tell body text
　　　　　　　　set tmpP to every paragraph
　　　　　　　　if tmpP = {""} then
　　　　　　　　　　return {maxSize:0, maxTextList:{}}
　　　　　　　　end if
　　　　　　　　
　　　　　　　　–フォントサイズのみパラグラフ単位に取得
　　　　　　　　set szList to size of every paragraph
　　　　　　　　set aMaxPoint to calcMax(szList) of me –最大の文字サイズを取得
　　　　　　　　
　　　　　　　　–文字サイズが最大のパラグラフを抽出
　　　　　　　　set resList to every paragraph whose size is aMaxPoint
　　　　　　　　–> {"テクノロジーが色彩（カラー）を決定している例は？"}
　　　　　　　　
　　　　　　　　return {maxSize:aMaxPoint, maxTextList:resList}
　　　　　　end tell
　　　　end tell
　　end tell
end getMaxTextFromBodyText