set targRowLabel to "NSAlert ダイアログの最前面表示"

tell application "Pages"
　　tell front document
　　　　set tList to every table whose column count = 2
　　end tell
end tell

delRowInEveryTable(tList, targRowLabel) of me

on delRowInEveryTable(tList as list, targRowLabel as string)
　　tell application "Pages"
　　　　repeat with i in tList
　　　　　　set j to contents of i
　　　　　　
　　　　　　tell j
　　　　　　　　set hCCount to header column count
　　　　　　　　set hRCount to header column count
　　　　　　　　
　　　　　　　　–ヘッダーカラムが複数存在している場合に対処？
　　　　　　　　repeat with hc from 1 to hCCount
　　　　　　　　　　tell column hc
　　　　　　　　　　　　set aList to value of every cell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　if targRowLabel is in aList then
　　　　　　　　　　　　set aRes to search1DList(aList, targRowLabel) of me
　　　　　　　　　　　　
　　　　　　　　　　　　–ヘッダー列に削除対象ラベルが存在しつつ、削除対象ラベルがヘッダー行の範囲ではない場所に出現した場合に削除
　　　　　　　　　　　　if (aRes is not equal to false) and (aRes ≥ hRCount) then
　　　　　　　　　　　　　　try –ねんのため
　　　　　　　　　　　　　　　　delete row aRes
　　　　　　　　　　　　　　end try
　　　　　　　　　　　　end if
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　end repeat
　　　　　　end tell
　　　　end repeat
　　　　
　　end tell
end delRowInEveryTable

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