use AppleScript version "2.8"
use framework "Foundation"
use scripting additions

set dMax to 3 –このページまで残す。ここから後はすべて削除する

tell application "Pages"
　　set dCount to count every document
　　if dCount < 1 then
　　　　display notification "Pagesでオープンしている書類はありません"
　　　　return
　　end if
end tell

set pMax to getPageNum() of me
if pMax < (dMax + 1) then
　　display notification "Pagesでオープンしている書類は、指定よりも少ないページ数であるため、削除の必要がありません"
　　return
end if

–セクションごとのページ数のリストを取得
set aList to retSectionPageList() of me
set bList to sectionPageListToSectionHeaderList(aList) of me

repeat with i from pMax to (dMax + 1) by -1
　　tell application "Pages"
　　　　tell front document
　　　　　　–オブジェクト削除前のページ数
　　　　　　set pMax1 to getPageNum() of me
　　　　　　
　　　　　　tell last page
　　　　　　　　delete every iWork item
　　　　　　end tell
　　　　　　
　　　　　　–セクション先頭の場合
　　　　　　set curPStat to contents of item i of bList
　　　　　　if curPStat = true then
　　　　　　　　tell last section
　　　　　　　　　　set body text to ""
　　　　　　　　end tell
　　　　　　end if
　　　　　　
　　　　　　–オブジェクト削除後のページ数
　　　　　　set pMax2 to getPageNum() of me
　　　　　　
　　　　　　–オブジェクト削除処理を行ってもページ数に変動がない場合には、last section上のbody textも消してみる
　　　　　　if pMax2 = pMax1 then
　　　　　　　　tell last section
　　　　　　　　　　set body text to ""
　　　　　　　　end tell
　　　　　　end if
　　　　end tell
　　end tell
end repeat

–セクションごとのページ数のリストを、ページ単位のセクション開始位置リストに変換する
on sectionPageListToSectionHeaderList(aList)
　　set bList to {}
　　
　　repeat with tmpP in aList
　　　　
　　　　if tmpP = 1 then
　　　　　　set the end of bList to true
　　　　else
　　　　　　set the end of bList to true
　　　　　　repeat (tmpP – 1) times
　　　　　　　　set the end of bList to false
　　　　　　end repeat
　　　　end if
　　end repeat
　　
　　return bList
end sectionPageListToSectionHeaderList

–最前面の書類の各セクションごとのページ数を1Dリスト（１次元配列）で返す
on retSectionPageList()
　　tell application "Pages"
　　　　tell front document
　　　　　　set sList to every section
　　　　　　set pList to {}
　　　　　　repeat with i in sList
　　　　　　　　set the end of pList to count every page of i
　　　　　　end repeat
　　　　end tell
　　end tell
　　return pList
end retSectionPageList