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

tell application "Skim"
　　set docCount to count every document
　　if docCount = 0 then return
　　
　　tell front document
　　　　set curInd to index of current page
　　　　set docFile to file of it
　　　　close without saving
　　end tell
end tell

set aPOSIX to POSIX path of docFile
set aURL to (|NSURL|’s fileURLWithPath:aPOSIX)

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

set pRes to removePDFPageAfter(docFile, curInd) of me

tell application "Skim"
　　open docFile
　　tell front document
　　　　go to last page
　　end tell
end tell

–指定パスのPDFの指定ページ以降（指定ページも含む）をすべて削除
on removePDFPageAfter(inFile, sPage)
　　set pCount to pdfPageCount(inFile) of me
　　set eCount to pCount – sPage + 1
　　
　　set targPageList to makeSuccessfulNumArray(sPage, pCount) of me
　　set rList to reverse of targPageList
　　return removeSpecificPagesFromPDF(inFile, rList) of me
end removePDFPageAfter

–指定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 uniquify1DList(newList, true) of me
　　set t2List to sort1DNumListWithOrder(t1List, false) of me
　　
　　return t2List
end relativeToAbsNumList

–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 sort1DNumListWithOrder(theList as list, aBool as boolean)
　　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 sort1DNumListWithOrder

–指定PDFのページ数をかぞえる
on pdfPageCount(aFile)
　　set aFile to POSIX path of aFile
　　set theURL to |NSURL|’s fileURLWithPath:aFile
　　set aPDFdoc to PDFDocument’s alloc()’s initWithURL:theURL
　　set aRes to aPDFdoc’s pageCount()
　　return aRes as integer
end pdfPageCount

–連番1D Listを作成
on makeSuccessfulNumArray(sNum, eNum)
　　script spd
　　　　property aList : {}
　　end script
　　
　　if sNum ≥ eNum then return {}
　　
　　set (aList of spd) to {}
　　
　　repeat with i from sNum to eNum
　　　　set the end of (aList of spd) to i
　　end repeat
　　
　　return (aList of spd)
end makeSuccessfulNumArray

set aPOSIX to POSIX path of (choose file of type {"com.adobe.pdf"})
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

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

repeat with ii from 0 to (pCount – 1)
　　log ii –Page Count
　　
　　set firstPage to (aPDFdoc’s pageAtIndex:ii)
　　–>　　(PDFPage) PDFPage, label 1
　　
　　set anoList to (firstPage’s annotations()) as list
　　if anoList is not equal to {} then
　　　　repeat with i in anoList
　　　　　　set j to contents of i
　　　　　　log j
　　　　　　(*(SKNPDFAnnotationNote) Type: ’/Text’, Bounds: (320, 737) [16, 16]＼n*)
　　　　　　
　　　　　　set aType to (j’s type()) as string
　　　　　　log aType
　　　　　　(*Note*)
　　　　　　
　　　　　　if aType = "Note" then
　　　　　　　　set cVal to j’s |contents|() as string
　　　　　　　　log cVal
　　　　　　　　(*Skim Noteのタイトルだよ Skim Noteの本文だよ＼n＼n*)
　　　　　　　　
　　　　　　　　set cVal to j’s iconType()
　　　　　　　　log cVal
　　　　　　　　(*0*)
　　　　　　　　
　　　　　　　　set dVal to j’s isSkimNote() as boolean
　　　　　　　　log dVal
　　　　　　　　(*true*)
　　　　　　　　
　　　　　　　　if dVal = true then
　　　　　　　　　　set eVal to j’s |string|()
　　　　　　　　　　log eVal
　　　　　　　　　　(*(NSString) "Skim Noteのタイトルだよ"*)
　　　　　　　　　　
　　　　　　　　　　set fVal to j’s SkimNoteProperties()
　　　　　　　　　　(*(NSDictionary) {bounds:"{{308, 732}, {16, 16}}", color:(NSColorSpaceColor) sRGB IEC61966-2.1 colorspace 1 1 0.5 1, userName:"Takaaki Naganoya2", modificationDate:(NSDate) "2023-08-17 14:38:39 +0000", image:<NSImage 0x6000067d32a0 Size={1920, 1200} RepProvider=<NSImageArrayRepProvider: 0x6000015034a0, reps:(＼n "NSBitmapImageRep 0x600003eb85b0 Size={1920, 1200} ColorSpace=(not yet loaded) BPS=8 BPP=(not yet loaded) Pixels=1920×1200 Alpha=YES Planar=NO Format=(not yet loaded) CurrentBacking=nil (faulting) CGImageSource=0x600001089360"＼n)>>, contents:"Skim Noteのタイトルだよ", text:(NSConcreteAttributedString) Skim Note{＼n NSFont = ""Helvetica 12.00 pt. P [] (0x11f597610) fobj=0x139642430, spc=3.33"";＼n NSParagraphStyle = "Alignment 0, LineSpacing 0, ParagraphSpacing 0, ParagraphSpacingBefore 0, HeadIndent 0, TailIndent 0, FirstLineHeadIndent 0, LineHeight 0/0, LineHeightMultiple 0, LineBreakMode 0, Tabs (＼n 28L,＼n 56L,＼n 84L,＼n 112L,＼n 140L,＼n 168L,＼n 196L,＼n 224L,＼n 252L,＼n 280L,＼n 308L,＼n 336L＼n), DefaultTabInterval 0, Blocks (null), Lists (＼n), BaseWritingDirection -1, HyphenationFactor 0, TighteningForTruncation NO, HeaderLevel 0 LineBreakStrategy 0 PresentationIntents (＼n) ListIntentOrdinal 0 CodeBlockIntentLanguageHint ’(null)’";＼n}の本文だよ＼n＼n{＼n NSFont = ""HiraginoSans-W3 12.00 pt. P [] (0x11f597610) fobj=0x11f5277a0, spc=4.00"";＼n NSParagraphStyle = "Alignment 0, LineSpacing 0, ParagraphSpacing 0, ParagraphSpacingBefore 0, HeadIndent 0, TailIndent 0, FirstLineHeadIndent 0, LineHeight 0/0, LineHeightMultiple 0, LineBreakMode 0, Tabs (＼n 28L,＼n 56L,＼n 84L,＼n 112L,＼n 140L,＼n 168L,＼n 196L,＼n 224L,＼n 252L,＼n 280L,＼n 308L,＼n 336L＼n), DefaultTabInterval 0, Blocks (null), Lists (＼n), BaseWritingDirection -1, HyphenationFactor 0, TighteningForTruncation NO, HeaderLevel 0 LineBreakStrategy 0 PresentationIntents (＼n) ListIntentOrdinal 0 CodeBlockIntentLanguageHint ’(null)’";＼n}, type:"Note", pageIndex:0, iconType:0}*)
　　　　　　　　　　
　　　　　　　　　　set anImage to fVal’s image
　　　　　　　　　　log anImage
　　　　　　　　　　(*<NSImage 0x6000067cf700 Size={1920, 1200} RepProvider=<NSImageArrayRepProvider: 0x6000015182c0, reps:(＼n "NSBitmapImageRep 0x600003effb10 Size={1920, 1200} ColorSpace=(not yet loaded) BPS=8 BPP=(not yet loaded) Pixels=1920×1200 Alpha=YES Planar=NO Format=(not yet loaded) CurrentBacking=nil (faulting) CGImageSource=0x60000105fa20"＼n)>>*)
　　　　　　　　　　
　　　　　　　　　　set colRes to fVal’s |color|
　　　　　　　　　　log colRes
　　　　　　　　　　(*(NSColorSpaceColor) sRGB IEC61966-2.1 colorspace 1 1 0.5 1*)
　　　　　　　　　　
　　　　　　　　　　set tRes to fVal’s |text|
　　　　　　　　　　log tRes
　　　　　　　　　　(*(NSConcreteAttributedString) Skim Note{＼n NSFont = ""Helvetica 12.00 pt. P [] (0x1296dd6e0) fobj=0x139642430, spc=3.33"";＼n NSParagraphStyle = "Alignment 0, LineSpacing 0, ParagraphSpacing 0, ParagraphSpacingBefore 0, HeadIndent 0, TailIndent 0, FirstLineHeadIndent 0, LineHeight 0/0, LineHeightMultiple 0, LineBreakMode 0, Tabs (＼n 28L,＼n 56L,＼n 84L,＼n 112L,＼n 140L,＼n 168L,＼n 196L,＼n 224L,＼n 252L,＼n 280L,＼n 308L,＼n 336L＼n), DefaultTabInterval 0, Blocks (null), Lists (＼n), BaseWritingDirection -1, HyphenationFactor 0, TighteningForTruncation NO, HeaderLevel 0 LineBreakStrategy 0 PresentationIntents (＼n) ListIntentOrdinal 0 CodeBlockIntentLanguageHint ’(null)’";＼n}の本文だよ＼n＼n{＼n NSFont = ""HiraginoSans-W3 12.00 pt. P [] (0x1296dd6e0) fobj=0x11f5277a0, spc=4.00"";＼n NSParagraphStyle = "Alignment 0, LineSpacing 0, ParagraphSpacing 0, ParagraphSpacingBefore 0, HeadIndent 0, TailIndent 0, FirstLineHeadIndent 0, LineHeight 0/0, LineHeightMultiple 0, LineBreakMode 0, Tabs (＼n 28L,＼n 56L,＼n 84L,＼n 112L,＼n 140L,＼n 168L,＼n 196L,＼n 224L,＼n 252L,＼n 280L,＼n 308L,＼n 336L＼n), DefaultTabInterval 0, Blocks (null), Lists (＼n), BaseWritingDirection -1, HyphenationFactor 0, TighteningForTruncation NO, HeaderLevel 0 LineBreakStrategy 0 PresentationIntents (＼n) ListIntentOrdinal 0 CodeBlockIntentLanguageHint ’(null)’";＼n}*)
　　　　　　　　　　
　　　　　　　　　　set sBounds to fVal’s |bounds|
　　　　　　　　　　log sBounds
　　　　　　　　　　(*(NSString) "{{308, 732}, {16, 16}}"*)
　　　　　　　　　　
　　　　　　　　　　set uName to fVal’s userName
　　　　　　　　　　log uName
　　　　　　　　　　(*(NSString) "Takaaki Naganoya2"*)
　　　　　　　　　　
　　　　　　　　　　set modRes to fVal’s modificationDate
　　　　　　　　　　log modRes
　　　　　　　　　　(*(NSDate) "2023-08-17 14:38:39 +0000"*)
　　　　　　　　　　
　　　　　　　　end if
　　　　　　end if
　　　　end repeat
　　end if
　　
end repeat

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

script pdfStore
　　property aList : {}
end script

set (aList of pdfStore) to {}

tell application "Skim"
　　set dCount to count every document
　　if dCount = 0 then return
　　
　　tell front document
　　　　set myPath to path
　　　　set pCount to count every page
　　end tell
end tell

set anNSURL to (current application’s |NSURL|’s fileURLWithPath:myPath)
set theDoc to current application’s PDFDocument’s alloc()’s initWithURL:anNSURL

repeat with i from 0 to (pCount – 1)
　　set aPage to (theDoc’s pageAtIndex:i)
　　set tmpStr to (aPage’s |string|())
　　set the end of (aList of pdfStore) to (tmpStr as string)
end repeat

set resList to {}
repeat with i from 1 to (pCount – 1)
　　set aText1 to contents of item i of (aList of pdfStore)
　　set aText2 to contents of item (i + 1) of (aList of pdfStore)
　　
　　if aText1 = aText2 then
　　　　set the end of resList to {i, i + 1}
　　end if
end repeat

if resList is equal to {} then
　　display notification "PDFに重複ページは見られませんでした。"
else
　　set aText to listToText(resList) of me
　　set the clipboard to aText
　　display dialog "重複ページ：" default answer aText with icon 1 buttons {"OK"} default button 1
end if

on listToText(aList)
　　set listText to {"{"}
　　set quotChar to ASCII character 34
　　set firstFlag to true
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　set aClass to class of i
　　　　if (aClass = integer) or (aClass = number) or (aClass = real) then
　　　　　　set the end of listText to (getFirst(firstFlag) of me & j as text)
　　　　　　set firstFlag to false
　　　　else if (aClass = string) or (aClass = text) or (aClass = Unicode text) then
　　　　　　set the end of listText to ((getFirst(firstFlag) of me & quotChar & j as text) & quotChar)
　　　　　　set firstFlag to false
　　　　else if aClass is list then
　　　　　　set the end of listText to (getFirst(firstFlag) of me & listToText(j)) –ちょっと再帰処理
　　　　　　set firstFlag to false
　　　　end if
　　end repeat
　　
　　set the end of listText to "}"
　　set listText to listText as text
　　
　　return listText
end listToText

on getFirst(aFlag)
　　if aFlag = true then return ""
　　if aFlag = false then return ","
end getFirst