Applescript with quicktime and excel2004

Question

I would appreciate any help on the following.
I have a lot of quicktime videos I need to look at. Each movie contains many subjects doing diffferent things. Subject A say begins to talk, and I can get the time code of this point by looking at the quicktime time info window.
When this subject finishes, I can do the same. And, I can get the time this subjectA was talking. The subject A might speak at different times in the movie, and I need to record all this start-end times, and the differences each time, and get a cumulative sum.
I know to get the time stamp using applescript from a currently open movie.
tell application "QuickTime Player"
activate
try
--I check if i have qt pro -not shown here
set this_movie to the name of movie 1
set this_time to the current time of movie 1
set movie_scale to the time scale of movie 1
set this_timecode to my time2timecode(this_time, movie_scale)
display dialog "Current time of “" & this_movie & "”:" & ¬
return & return & this_timecode buttons {"Clipboard", "OK"} default button 2
if the button returned of the result is "Clipboard" then
set the clipboard to this_timecode
display dialog "The timecode is now on the clipboard." buttons {"•"} default button 1 giving up after 2
end if
end try
end tell
Now, the time stamp is in the clipboard, How can I take it into columns in Excel2004 -- using applescript.
subjA startTime endTime diff
subjA startTime endTime diff
subjB startTime endTime diff
subjA startTime endTime diff
subjC startTime endTime diff
subjA startTime endTime diff
Any help is appreciated. Right now, I want to do this for a ppc running osx tiger and using excel for office 2004, and quicktime 7.x pro.
Will the script be differrent if this were performed on an intel-mac?
Rand on PowerMac PPC G5
PowerMac PPC G5- excel 2004- qtpro7 -- Tiger   Mac OS X (10.4.7)  

Answer 1

tell application "QuickTime Player"
activate -- Launch and / or bring forth 'QuickTime'.
set tList to {} -- List to contain obtained date.
tell movie 1 to copy name to end of tList -- Place name of current movie into tList.
repeat
set {tFlag, tResult} to {0, display dialog "(Start Time) ... Subject letter: " default answer "A" buttons {"OK"} default button 1}
-- Place Subject Name and scaled Start Time into tList.
tell movie 1 to set {tSubject, movie_Name, start_time, time_scale} to {text returned of tResult, name, current time, time scale}
copy {tSubject, start_time / time_scale} to {end of tList, end of tList}
if ((button returned of (display dialog "End time of Subject: " & tSubject buttons {"Completed", "Continue..."} default button 2)) is "Completed") then set tFlag to 1
tell movie 1 to set end_time to current time
copy (end_time / time_scale) to end of tList -- Place scaled End Time into tList.
if (tFlag = 1) then exit repeat -- Exit infinite loop when 'Completed' button is selected.
end repeat
tell application "Microsoft Excel"
activate -- Launch and / or bring forth 'Excel'.
if (not (document 1 exists)) then make new document -- Create a new document, if needed.
-- Add header information to Worksheet.
set (value of cell 1 of row 1) to "Movie Title: "
set Column_Titles to {"Subject", "Start Time", "End Time", "Difference"}
repeat with i from 1 to (count Column_Titles)
set (value of cell i of row 3) to (item i of Column_Titles)
end repeat
-- Add contents of tList to the worksheet.
set tInc to 1
repeat with i from 1 to (((count tList) - 1) / 3)
repeat with j from 1 to 3
set tInc to (tInc + 1)
set (value of cell j of row (i + 4)) to (item tInc of tList)
end repeat
set (value of cell (j + 1) of row (i + 4)) to ((item tInc of tList) - (item (tInc - 1) of tList))
end repeat
end tell
end tell
  Mac OS X (10.4.4)