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