Отображение текущего времени в Keynote vie Applescript

Question

    tell application "Keynote"
        repeat
            delay 2 -- seconds.  This script does not need to run faster
            set the_time to current date
            set the_time to time string of (current date) -- get now()
            set the_time to every word of the_time -- slice
            set the_time to item 1 of the_time & ":" & item 2 of the_time -- extract fields
            set body of the first slide to the_time as string
        end repeat
    end tell
end tell

Я хотел бы показать текущее время на слайде 1 (в данном случае) в Keynote. Я понял, что он должен работать с applecript, так как это будущее не поддерживается в Keynote.

"Applescript говорит, что" Keynote "отправляет ошибку: тело слайда 1 не может быть преобразовано в спецификатор типа. Так что есть проблема с"set body of the first slide to the_time as string", но я не вижу, какой.

Answer 1

• заявка Keynote имеет documents
• document имеет slides
• slide имеет text items
• text item имеет object text

Пытаться

repeat
    delay 2 -- seconds.  This script does not need to run faster
    set the_time to text 1 thru -4 of time string of (current date)
    tell application "Keynote"
        set object text of text item 1 of first slide of document 1 to the_time
    end tell
end tell