property |NSURL| : a reference to current application’s |NSURL|
property NSString : a reference to current application’s NSString
property PDFPage : a reference to current application’s PDFPage
property NSImage : a reference to current application’s NSImage
property PDFDocument : a reference to current application’s PDFDocument
property NSBitmapImageRep : a reference to current application’s NSBitmapImageRep

set a to choose file of type {"public.tiff"} with prompt "Select Multi-page tiff file" –tiff
set aRes to convertMultiPageTiffToPDF(a) of me

on convertMultiPageTiffToPDF(anAlias)
　　–Make Output Path
　　set b to POSIX path of anAlias
　　set bb to changeExtensionInPath("pdf", b) –OutPath
　　
　　–Read Multi-Page TIFF
　　set aURL to |NSURL|’s fileURLWithPath:b
　　set aImage to NSImage’s alloc()’s initWithContentsOfURL:aURL
　　set aRawimg to aImage’s TIFFRepresentation()
　　set eachTiffPages to (NSBitmapImageRep’s imageRepsWithData:aRawimg) as list
　　
　　–Make Blank PDF
　　set aPDFdoc to PDFDocument’s alloc()’s init()
　　
　　set pageNum to 0
　　
　　repeat with curPage in eachTiffPages
　　　　set thisImage to contents of curPage
　　　　set aImg to (NSImage’s alloc()’s initWithSize:(thisImage’s |size|()))
　　　　(aImg’s addRepresentation:thisImage)
　　　　(aPDFdoc’s insertPage:(PDFPage’s alloc()’s initWithImage:aImg) atIndex:pageNum)
　　　　set pageNum to pageNum + 1
　　end repeat
　　
　　return (aPDFdoc’s writeToFile:bb) as boolean
end convertMultiPageTiffToPDF

set aPath to POSIX path of (choose file of type {"com.adobe.pdf"} with prompt "Select PDF")
set aURL to current application’s |NSURL|’s fileURLWithPath:aPath
set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL

set pCount to aPDFdoc’s pageCount() –ページ数
–>　　1

set aMajorVersion to aPDFdoc’s majorVersion() –バージョン（メジャーバージョン）
–> 1

set aMinorVersion to aPDFdoc’s minorVersion() –バージョン（マイナーバージョン）
–> 3

set aRoot to aPDFdoc’s outlineRoot()
–>　　missing value

set anAttr to (aPDFdoc’s documentAttributes()) as record
–> (NSDictionary) {Creator:"Pages", Producer:"Mac OS X 10.11.1 Quartz PDFContext", ModDate:(NSDate) 2015-10-20 07:45:55 +0000, Title:"testPDF", CreationDate:(NSDate) 2015-10-20 07:45:55 +0000}

set aCreator to anAttr’s Creator()
–>　　"Pages"

set aProducer to anAttr’s Producer()
–>　　"Mac OS X 10.11.1 Quartz PDFContext"

set aTitle to anAttr’s Title()
–>　　"testPDF"

set aCreationDate to anAttr’s CreationDate() –PDF作成年月日
–>　　date "2015年10月20日火曜日 16:45:55"

set aModDate to anAttr’s ModDate() –PDF変更年月日
–>　　date "2015年10月20日火曜日 16:45:55"

set anEncF to aPDFdoc’s isEncrypted() –暗号化されている（パスワードが設定されている）か？
–>　　false

set anLockF to aPDFdoc’s isLocked() –ロックされているか？
–>　　false

set aCopyF to aPDFdoc’s allowsCopying() –テキストのコピーを許可されているか？
–>　　true

set aPrintF to aPDFdoc’s allowsPrinting() –印刷を許可されているか？
–>　　true

set aExt to ".jpg"

set targAlias to retFrontFinderWindowsTargetIfExits(path to desktop) of me
set aFol to choose folder with prompt "追記するJPEG画像ファイルが入っているフォルダを選択" default location targAlias

set fList to getFilePathList(aFol, aExt) of me
set f2List to my sort1DList:fList ascOrder:true –sort by ascending

set newFile to POSIX path of (choose file of type {"com.adobe.pdf"} with prompt "既存のPDFファイルを選択（このPDF末尾に画像を追加）")
set newFilePath to current application’s NSString’s stringWithString:newFile
set newFileURL to current application’s |NSURL|’s fileURLWithPath:newFile

–Get Exsisting PDF’s URL and Use it
set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:newFileURL
set pageNum to ((aPDFdoc’s pageCount()) as integer)

repeat with i in f2List
　　set j to contents of i
　　set aURL to (current application’s |NSURL|’s fileURLWithPath:j)
　　set bImg to (current application’s NSImage’s alloc()’s initWithContentsOfURL:aURL)
　　(aPDFdoc’s insertPage:(current application’s PDFPage’s alloc()’s initWithImage:bImg) atIndex:pageNum)
　　set pageNum to pageNum + 1
end repeat

aPDFdoc’s writeToFile:newFilePath

–ASOCで指定フォルダのファイルパス一覧取得（拡張子指定つき）
on getFilePathList(aFol, aExt)
　　set aPath to current application’s NSString’s stringWithString:(POSIX path of aFol)
　　set aFM to current application’s NSFileManager’s defaultManager()
　　set nameList to (aFM’s contentsOfDirectoryAtPath:aPath |error|:(missing value)) as list
　　set anArray to current application’s NSMutableArray’s alloc()’s init()
　　
　　repeat with i in nameList
　　　　set j to i as text
　　　　if (j ends with aExt) and (j does not start with ".") then –exclude invisible files
　　　　　　set newPath to (aPath’s stringByAppendingString:j)
　　　　　　(anArray’s addObject:newPath)
　　　　end if
　　end repeat
　　
　　return anArray as list
end getFilePathList

–1D List（文字）をsort / ascOrderがtrueだと昇順ソート、falseだと降順ソート
on sort1DList:theList ascOrder:aBool
　　set aDdesc to current application’s NSSortDescriptor’s sortDescriptorWithKey:"self" ascending:aBool selector:"localizedCaseInsensitiveCompare:"
　　set theArray to current application’s NSArray’s arrayWithArray:theList
　　return (theArray’s sortedArrayUsingDescriptors:{aDdesc}) as list
end sort1DList:ascOrder:

set aExt to ".jpg"
set aFol to choose folder
set fList to getFilePathList(aFol, aExt) of me
set f2List to my sort1DList:fList ascOrder:true –sort by ascending

set newFile to POSIX path of (choose file name with prompt "新規PDFファイルの名称を選択")
set newFilePath to current application’s NSString’s stringWithString:newFile

–Make Blank PDF
set aPDFdoc to current application’s PDFDocument’s alloc()’s init()

set pageNum to 0

repeat with i in f2List
　　set j to contents of i
　　set aURL to (current application’s |NSURL|’s fileURLWithPath:j)
　　set bImg to (current application’s NSImage’s alloc()’s initWithContentsOfURL:aURL)
　　(aPDFdoc’s insertPage:(current application’s PDFPage’s alloc()’s initWithImage:bImg) atIndex:pageNum)
　　set pageNum to pageNum + 1
end repeat

aPDFdoc’s writeToFile:newFilePath

–ASOCで指定フォルダのファイルパス一覧取得（拡張子指定つき）
on getFilePathList(aFol, aExt)
　　set aPath to current application’s NSString’s stringWithString:(POSIX path of aFol)
　　set aFM to current application’s NSFileManager’s defaultManager()
　　set nameList to (aFM’s contentsOfDirectoryAtPath:aPath |error|:(missing value)) as list
　　set anArray to current application’s NSMutableArray’s alloc()’s init()
　　
　　repeat with i in nameList
　　　　set j to i as text
　　　　if (j ends with aExt) and (j does not start with ".") then –exclude invisible files
　　　　　　set newPath to (aPath’s stringByAppendingString:j)
　　　　　　(anArray’s addObject:newPath)
　　　　end if
　　end repeat
　　
　　return anArray as list
end getFilePathList

property textCache : missing value
property aList : {}

–検索対象の語群
set sList to {"notification", "Cocoa"} –considering case

set thePath to POSIX path of (choose file of type {"com.adobe.pdf"})

–PDFのテキスト内容をあらかじめページごとに読み取って、検索用のテキストキャッシュを作成
set anNSURL to (current application’s |NSURL|’s fileURLWithPath:thePath)
set theDoc to current application’s PDFDocument’s alloc()’s initWithURL:anNSURL
set theCount to theDoc’s pageCount() as integer

set textCache to current application’s NSMutableArray’s new()

repeat with i from 0 to (theCount – 1)
　　set aPage to (theDoc’s pageAtIndex:i)
　　set tmpStr to (aPage’s |string|())
　　(textCache’s addObject:{pageIndex:i + 1, pageString:tmpStr})
end repeat

–主にテキストキャッシュを対象にキーワード検索
repeat with s in sList
　　
　　–❶部分一致で抽出
　　set bRes to ((my filterRecListByLabel1(textCache, "pageString contains ’" & s & "’"))’s pageIndex) as list
　　
　　–❷、❶のページ単位のテキスト検索で見つからなかった場合（ページ間でまたがっている場合など）
　　if bRes = {} then
　　　　set bRes to {}
　　　　set theSels to (theDoc’s findString:s withOptions:0)
　　　　repeat with aSel in theSels
　　　　　　set thePage to (aSel’s pages()’s objectAtIndex:0)’s label()
　　　　　　set curPage to (thePage as integer)
　　　　　　if curPage is not in bRes then
　　　　　　　　set the end of bRes to curPage
　　　　　　end if
　　　　end repeat
　　end if
　　
　　set the end of aList to bRes
　　
end repeat

return aList

property NSString : a reference to current application’s NSString
property NSCharacterSet : a reference to current application’s NSCharacterSet
property NSRegularExpression : a reference to current application’s NSRegularExpression
property NSRegularExpressionAnchorsMatchLines : a reference to current application’s NSRegularExpressionAnchorsMatchLines
property NSRegularExpressionDotMatchesLineSeparators : a reference to current application’s NSRegularExpressionDotMatchesLineSeparators

script spdPDF
　　property foundURLs : {}
　　property aList : {}
　　property outList : {}
end script

load framework

set (foundURLs of spdPDF) to {}
set theFile to POSIX path of (choose file of type "com.adobe.pdf")
set (aList of spdPDF) to textInPDFinEachPage(theFile) of me

set pCounter to 1

repeat with i in (aList of spdPDF)
　　set aURL1 to extractLinksFromNaturalText(i as string) of me
　　set aURL2 to (current application’s SMSForder’s arrayByDeletingBlanksIn:((aURL1) as list))
　　
　　set tmpOut to {}
　　repeat with ii in aURL2
　　　　set aURL to (ii’s absoluteString()) as string
　　　　if aURL begins with "http://piyocast.com/as/" then
　　　　　　set the end of tmpOut to aURL
　　　　end if
　　end repeat
　　
　　if tmpOut is not equal to {} then
　　　　set (outList of spdPDF) to (outList of spdPDF) & tmpOut
　　end if
end repeat

set outStr to retArrowText(outList of spdPDF, return) of me

on textInPDFinEachPage(thePath)
　　script textStorage
　　　　property aList : {}
　　end script
　　
　　set (aList of textStorage) to {}
　　
　　set anNSURL to (current application’s |NSURL|’s fileURLWithPath:thePath)
　　set theDoc to current application’s PDFDocument’s alloc()’s initWithURL:anNSURL
　　
　　set theCount to theDoc’s pageCount() as integer
　　
　　repeat with i from 1 to theCount
　　　　set thePage to (theDoc’s pageAtIndex:(i – 1))
　　　　set curStr to (thePage’s |string|())
　　　　set curStr2 to curStr’s decomposedStringWithCanonicalMapping() –Normalize Text with NFC
　　　　set targString to string id 13 & string id 10 & string id 32 & string id 65532 –Object Replacement Character
　　　　set bStr to (curStr2’s stringByTrimmingCharactersInSet:(current application’s NSCharacterSet’s characterSetWithCharactersInString:targString))
　　　　set the end of (aList of textStorage) to (bStr as string)
　　end repeat
　　
　　return contents of (aList of textStorage)
end textInPDFinEachPage

on extractLinksFromNaturalText(aString)
　　set anNSString to current application’s NSString’s stringWithString:aString
　　
　　set {theDetector, theError} to current application’s NSDataDetector’s dataDetectorWithTypes:(current application’s NSTextCheckingTypeLink) |error|:(reference)
　　
　　set theMatches to theDetector’s matchesInString:anNSString options:0 range:{0, anNSString’s |length|()}
　　set theResults to theMatches’s valueForKey:"URL"
　　
　　return theResults as list
end extractLinksFromNaturalText

–リストを指定デリミタをはさんでテキスト化
on retStrFromArrayWithDelimiter(aList, aDelim)
　　set anArray to current application’s NSArray’s arrayWithArray:aList
　　set aRes to anArray’s componentsJoinedByString:aDelim
　　return aRes as text
end retStrFromArrayWithDelimiter

set aHFSPath to (choose file of type {"com.adobe.pdf"} with prompt "ページごとに分解するPDFを指定してください")
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPOSIXpath to POSIX path of aHFSPath —書き出し先パスをPOSIX pathで用意しておく（あとで加工）

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

–PDFをページごとに分割してファイル書き出し
repeat with i from 0 to (pCount – 1)
　　set thisPage to (aPDFdoc’s pageAtIndex:(i))
　　set thisDoc to (current application’s PDFDocument’s alloc()’s initWithData:(thisPage’s dataRepresentation()))
　　set outPath to addString_beforeExtensionIn_("_" & (i + 1) as string, aPOSIXpath)
　　
　　(thisDoc’s writeToFile:outPath) –書き出し
end repeat

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "Quartz"
use framework "QuartzCore"
use framework "AppKit"

set aHFSPath to (choose file of type {"com.adobe.pdf"} with prompt "ページごとに分解するPDFを指定してください")
set aPOSIX to POSIX path of aHFSPath
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPOSIX)

set aPOSIXpath to POSIX path of aHFSPath —書き出し先パスをPOSIX pathで用意しておく（あとで加工）

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

set compFactor to 1.0 –1.0 — 0.0 = max jpeg compression, 1.0 = none

–Detect Retina Environment
set retinaF to current application’s NSScreen’s mainScreen()’s backingScaleFactor()
if retinaF = 1.0 then
　　set aScale to 2.0 –Non Retina Env
else
　　set aScale to 1.0 –Retina Env
end if

–PDFをページごとに分割してJPEGでファイル書き出し
repeat with i from 0 to (pCount – 1)
　　–Pick Up a PDF page as an image
　　set thisPage to (aPDFdoc’s pageAtIndex:(i))
　　set thisDoc to (current application’s NSImage’s alloc()’s initWithData:(thisPage’s dataRepresentation()))
　　if thisDoc = missing value then error "Error in getting imagerep from PDF in page:" & (i as string)
　　
　　–Resize Image
　　set pointSize to thisDoc’s |size|()
　　set newSize to current application’s NSMakeSize((pointSize’s width) * aScale, (pointSize’s height) * aScale)
　　set newImage to (current application’s NSImage’s alloc()’s initWithSize:newSize)
　　
　　newImage’s lockFocus()
　　(thisDoc’s setSize:newSize)
　　(current application’s NSGraphicsContext’s currentContext()’s setImageInterpolation:(current application’s NSImageInterpolationHigh))
　　(thisDoc’s drawAtPoint:(current application’s NSZeroPoint) fromRect:(current application’s CGRectMake(0, 0, newSize’s width, newSize’s height)) operation:(current application’s NSCompositeCopy) fraction:1.0)
　　newImage’s unlockFocus()
　　
　　–Save Image as JPEG
　　set theData to newImage’s TIFFRepresentation()
　　set newRep to (current application’s NSBitmapImageRep’s imageRepWithData:theData)
　　set targData to (newRep’s representationUsingType:(current application’s NSJPEGFileType) |properties|:{NSImageCompressionFactor:compFactor, NSImageProgressive:false})
　　set zText to retZeroPaddingText((i + 1), 4) of me
　　set outPath to addString_beforeExtensionIn_addingExtension_("_" & zText, aPOSIXpath, "jpg")
　　
　　(targData’s writeToFile:outPath atomically:true) –書き出し
end repeat

–ファイルパス（POSIX path）に対して、文字列（枝番）を追加。任意の拡張子を追加
on addString:extraString beforeExtensionIn:aPath addingExtension:aExt
　　set pathString to current application’s NSString’s stringWithString:aPath
　　set theExtension to pathString’s pathExtension()
　　set thePathNoExt to pathString’s stringByDeletingPathExtension()
　　
　　set newPath to (thePathNoExt’s stringByAppendingString:extraString)’s stringByAppendingPathExtension:aExt
　　return newPath as string
end addString:beforeExtensionIn:addingExtension: