property |NSURL| : a reference to current application’s |NSURL|
property NSPredicate : a reference to current application’s NSPredicate
property NSFileManager : a reference to current application’s NSFileManager
property PDFDocument : a reference to current application’s PDFDocument
property NSMutableArray : a reference to current application’s NSMutableArray
property NSURLIsDirectoryKey : a reference to current application’s NSURLIsDirectoryKey
property NSDirectoryEnumerationSkipsHiddenFiles : a reference to current application’s NSDirectoryEnumerationSkipsHiddenFiles
property NSDirectoryEnumerationSkipsPackageDescendants : a reference to current application’s NSDirectoryEnumerationSkipsPackageDescendants
property NSDirectoryEnumerationSkipsSubdirectoryDescendants : a reference to current application’s NSDirectoryEnumerationSkipsSubdirectoryDescendants

set aFol to POSIX path of (choose folder with prompt "Choose folder" default location (path to pictures folder))
set targPDF to POSIX path of (choose file name with prompt "Choose File Name" default location (path to desktop folder) default name ((do shell script "uuidgen") & ".pdf"))
set pRes to gatherEachFirstPage(aFol, targPDF) of me

on gatherEachFirstPage(aFol, targPDF)
　　set aURL to (|NSURL|’s fileURLWithPath:targPDF)
　　
　　set outPDFdoc to PDFDocument’s alloc()’s init()
　　
　　set aList to my getFilesByExtension:{"pdf"} fromDirectory:(aFol)
　　
　　set outPDFPageCount to 0
　　repeat with i in aList
　　　　–集めたPDFの１ページ目を取得
　　　　set bURL to (|NSURL|’s fileURLWithPath:(POSIX path of i))
　　　　set bPDFdoc to (PDFDocument’s alloc()’s initWithURL:bURL)
　　　　set bPage to (bPDFdoc’s pageAtIndex:0) –first page
　　　　
　　　　–まとめ先のPDFに追記
　　　　(outPDFdoc’s insertPage:bPage atIndex:outPDFPageCount)
　　　　set outPDFPageCount to outPDFPageCount + 1
　　end repeat
　　
　　return (outPDFdoc’s writeToURL:aURL) as boolean
end gatherEachFirstPage

–指定フォルダ内の指定拡張子のファイルを抽出する
on getFilesByExtension:listOfExtensions fromDirectory:sourceFolder
　　set fileManager to NSFileManager’s defaultManager()
　　set aURL to |NSURL|’s fileURLWithPath:sourceFolder
　　set theOptions to ((NSDirectoryEnumerationSkipsPackageDescendants) as integer) + ((NSDirectoryEnumerationSkipsHiddenFiles) as integer)
　　set directoryContents to fileManager’s contentsOfDirectoryAtURL:aURL includingPropertiesForKeys:{} options:theOptions |error|:(missing value)
　　set foundItemList to NSPredicate’s predicateWithFormat_("pathExtension.lowercaseString IN %@", listOfExtensions)
　　set foundItemList to directoryContents’s filteredArrayUsingPredicate:foundItemList
　　# Return as a list POSIX Paths
　　set foundItemList to (foundItemList’s valueForKey:"path") as list
　　return foundItemList
end getFilesByExtension:fromDirectory:

property NSSortDescriptor : a reference to current application’s NSSortDescriptor
property NSArray : a reference to current application’s NSArray
property NSSet : a reference to current application’s NSSet
property |NSURL| : a reference to current application’s |NSURL|
property PDFDocument : a reference to current application’s PDFDocument

set inFile to (choose file of type {"pdf"} with prompt "Choose your PDF files:")
set targPageList to {1, 3, 5, 7, -1, -2}

set pRes to removeSpecificPagesFromPDF(inFile, targPageList) of me

–指定PDF書類の複数ページの一括削除
on removeSpecificPagesFromPDF(inFileAlias, targPageNumList as list)
　　set inNSURL to |NSURL|’s fileURLWithPath:(POSIX path of inFileAlias)
　　set theDoc to PDFDocument’s alloc()’s initWithURL:inNSURL
　　
　　–削除対象ページリストをユニーク化して降順ソート（後方から削除）
　　set pRes to theDoc’s pageCount()
　　set t3List to relativeToAbsNumList(targPageNumList, pRes) of me
　　
　　repeat with i in t3List
　　　　copy i to targPageNum
　　　　(theDoc’s removePageAtIndex:(targPageNum – 1))
　　end repeat
　　
　　–Overwrite Exsiting PDF
　　set aRes to (theDoc’s writeToURL:inNSURL) as boolean
　　
　　return aRes
end removeSpecificPagesFromPDF

–絶対ページと相対ページが混在した削除対象ページリストを絶対ページに変換して重複削除して降順ソート
on relativeToAbsNumList(aList, aMax)
　　set newList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if i < 0 then
　　　　　　set j to aMax + j
　　　　end if
　　　　
　　　　if (j ≤ aMax) and (j is not equal to 0) then
　　　　　　set the end of newList to j
　　　　end if
　　end repeat
　　
　　set t1List to my uniquify1DList(newList, true)
　　set t2List to my sort1DNumList:t1List ascOrder:false
　　
　　return t2List
end relativeToAbsNumList

on absNum(q)
　　if q is less than 0 then set q to –q
　　return q
end absNum

–1D/2D Listをユニーク化
on uniquify1DList(theList as list, aBool as boolean)
　　set aArray to NSArray’s arrayWithArray:theList
　　set bArray to aArray’s valueForKeyPath:"@distinctUnionOfObjects.self"
　　return bArray as list
end uniquify1DList

–Sort 1-Dimension List（String Number List）
on sort1DNumList:theList ascOrder:aBool
　　tell NSSet to set theSet to setWithArray_(theList)
　　tell NSSortDescriptor to set theDescriptor to sortDescriptorWithKey_ascending_("floatValue", aBool)
　　set sortedList to theSet’s sortedArrayUsingDescriptors:{theDescriptor}
　　return (sortedList) as list
end sort1DNumList:ascOrder:

property |NSURL| : a reference to current application’s |NSURL|
property PDFDocument : a reference to current application’s PDFDocument

set inFile to (choose file of type {"pdf"} with prompt "Choose your PDF files:")
set targPage to 7

set pRes to removeSpecificPageInPDF(inFile, targPage) of me

on removeSpecificPageInPDF(inFileAlias, targPageNum)
　　set inNSURL to |NSURL|’s fileURLWithPath:(POSIX path of inFileAlias)
　　set theDoc to PDFDocument’s alloc()’s initWithURL:inNSURL
　　
　　set pRes to theDoc’s pageCount()
　　if absNum(targPageNum) of me > pRes or targPageNum = 0 then
　　　　error "PDF Page Range error. This PDF document has " & (pRes as string) & " pages. But you pointed " & (targPageNum as string) & " page from your script. " & return & " (available abs range :1…" & (pRes as string) & ", relative range: -1…-" & (pRes as string) & ")"
　　end if
　　
　　–Allow Relative Page Num ( -1 = the last page)
　　if targPageNum ≤ 0 then
　　　　set targPageNum to pRes + targPageNum + 1
　　end if
　　theDoc’s removePageAtIndex:(targPageNum – 1)
　　
　　–Overwrite Exsiting PDF
　　set aRes to (theDoc’s writeToURL:inNSURL) as boolean
　　
　　return aRes
end removeSpecificPageInPDF

set aHFSPath to (choose file of type {"com.adobe.pdf"} with prompt "Choose a PDF with Annotation")
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
set pCount to aPDFdoc’s pageCount()

set firstPage to (aPDFdoc’s pageAtIndex:0)
–>　　(PDFPage) PDFPage, label 1

set anoList to (firstPage’s annotations()) as list
if anoList = {missing value} then return –指定PDF中にAnotationが存在しなかった
log anoList
(*
{(PDFAnnotationMarkup) Type: ’Highlight’, Bounds: (81, 624) [434, 53]
, ​​​​​(PDFAnnotationSquare) Type: ’Square’, Bounds: (50, 419) [212, 162]
, ​​​​​(PDFAnnotationSquare) Type: ’Square’, Bounds: (301, 107) [244, 484]
​​​}
*)

repeat with i in anoList
　　set aBounds to i’s |bounds|()
　　
　　log aBounds
　　(* {origin:{x:80.79, y:624.4106}, size:{width:433.6944, height:52.8918}} *)
　　(* {origin:{x:50.05553, y:419.1671}, size:{width:212.27807, height:162.3308}} *)
　　(* {origin:{x:300.6213, y:106.8405}, size:{width:244.0961, height:484.4566}} *)
　　
end repeat