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

property newFileName : "没.key" —"trash.key"

tell application "Keynote"
　　tell front document
　　　　set dName to getCurThemeName() of me
　　　　set curFile to (file of it) as alias
　　　　set myHeight to height of it
　　　　set myWidth to width of it
　　end tell
end tell

–書類の親フォルダを取得（POSIX path）
set parentFol to getParentFol(curFile) of me
set newKeynoteFile to parentFol & "/" & newFileName

–ファイルの存在確認
set exRes to chkFileExistence(newKeynoteFile) of me
if exRes = true then
　　–すでに存在している場合はそれをオープン
　　set newKeynoteFileAlias to (POSIX file newKeynoteFile) as alias
　　tell application "Keynote"
　　　　open newKeynoteFileAlias
　　end tell
　　return
else
　　–まだ存在していない場合、最前面の書類と同じテーマ、縦横比（SD、HD）の新規書類を作成する
　　set parentFolAlias to (POSIX file parentFol) as alias as string –POSIX path to HFS path string
　　set saveFilePathStr to (parentFolAlias as string) & newFileName
　　
　　tell application "Keynote"
　　　　set newDoc to make new document with properties {document theme:theme dName, width:myWidth, height:myHeight}
　　　　–save newDoc in file saveFilePathStr as Keynote–Keynote v12のバグに遭遇したため機能オフに
　　end tell
end if

–ファイルの存在確認
on chkFileExistence(aFilePathStr)
　　set fileManager to current application’s NSFileManager’s defaultManager()
　　set aRes to fileManager’s fileExistsAtPath:aFilePathStr
　　return aRes as boolean
end chkFileExistence

on getParentFol(anAlias)
　　set aPath to POSIX path of anAlias
　　set pathString to current application’s NSString’s stringWithString:aPath
　　set newPath to pathString’s stringByDeletingLastPathComponent()
　　return newPath as string
end getParentFol