set aFilepath to choose file name with prompt "ムービーを保存するファイル名を入力"
set outFilepathPOSIX to POSIX path of aFilepath

tell application id "com.apple.quicktimeplayer"
　　–確実に処理を行うためにムービーをすべてクローズ
　　close every document without saving
　　
　　–録画開始
　　new movie recording
　　start recording 1
end tell

–録画時間経過待ち
delay recTime –秒単位でウェイト（ちょっとバカっぽい処理。本来はタイマー割り込みで時間待ちすべき）

tell application id "com.apple.quicktimeplayer"
　　–録画停止
　　stop recording 1 –この操作で、QT7の設定に従ってムービーが保存される
　　
　　delay 1 –時間待ち
　　
　　tell document 1
　　　　set originPath to original file –保存先のファイルのパスを取得しておく
　　　　close
　　end tell
end tell

–QT Player 7が自動保存したファイルを移動＆リネーム
–ただし、自動保存したファイルのパスと移動先の衝突判定は省略
set movieOriginalFile to POSIX path of originPath
set sText to "mv " & quoted form of movieOriginalFile & " " & quoted form of outFilepathPOSIX
do shell script sText

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set outFol to choose folder with prompt “ムービー書き出し先フォルダを選択してください”
set targetMovie to “DVD_VIDEO-2.m4v”

repeat with i in aData
　　set {aName, sTime, eTime} to i
　　copyAndSaveMovie(outFol, targetMovie, aName, sTime, eTime) of me
end repeat

–指定名称のムービーを指定開始-終了時間の間を取り出して指定名称で保存
on copyAndSaveMovie(outFol, targetMovie, aName, sTime, eTime)
　　
　　–QuickTime Player 7をコントロール
　　tell application id “com.apple.quicktimeplayer”
　　　　tell document targetMovie
　　　　　　set timeScale to time scale
　　　　　　set aDuration to duration
　　　　end tell
　　　　
　　　　set realTime to aDuration / timeScale
　　　　
　　　　set fromTime to (retTimeBySecond(sTime) of me) * timeScale
　　　　set toTime to (retTimeBySecond(eTime) of me) * timeScale
　　　　
　　　　tell document targetMovie
　　　　　　select at fromTime to the toTime
　　　　　　copy
　　　　end tell
　　　　
　　　　set newMovie to make new document
　　　　paste document 1 –★重要★　この書き方以外はコンパイル（構文確認）が通らない
　　　　
　　　　set savePath to (outFol as string) & aName
　　　　
　　　　tell document 1
　　　　　　set current time to 0
　　　　　　save self contained in file savePath
　　　　end tell
　　　　
　　end tell
　　
end copyAndSaveMovie

–時刻の文字列を秒に直して返す
on retTimeBySecond(aTime)
　　set aList to parseByDelim(aTime, “:”) of me
　　set {hourStr, minuteStr, secondStr} to aList
　　
　　set hourNum to (hourStr as number) * 60 * 60
　　set minuteNum to (minuteStr as number) * 60
　　set secondNum to secondStr as number
　　
　　return (hourNum + minuteNum + secondNum)
　　
end retTimeBySecond

on parseByDelim(aData, aDelim)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set dList to text items of aData
　　set AppleScript’s text item delimiters to curDelim
　　return dList
end parseByDelim

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–QuickTime Player Xへの命令
tell application id "com.apple.QuickTimePlayerX"
　　activate
end tell

–QuickTime Player 7への命令
tell application id "com.apple.QuickTimePlayer"
　　activate
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に