--set printable current time of playback in document being played
tell application \"QuickTime Player\"
set thisDoc to document 1
set thisNow to current time of thisDoc
set thisSeconds to thisNow / 600 as integer
set thisMinutes to thisSeconds / 60
copy (AppleScript's text item delimiters) to old_delimiters
set AppleScript's text item delimiters to \".\"
set stringMinutes to thisMinutes as string
set PrettyMinutes to text item 1 of stringMinutes
set PrettySeconds to (thisSeconds - PrettyMinutes * 60)
set prettyTime to PrettyMinutes & \":\" & PrettySeconds
set AppleScript's text item delimiters to old_delimiters
end tell
set speakerInsert to \"TL\" & \" \" & prettyTime
tell application \"System Events\"
tell application \"TextEdit\" to activate
keystroke speakerInsert
keystroke return
end tell
It looks like you're new here. If you want to get involved, click one of these buttons!