AFAIK, с помощью Applescript вы можете получить доступ только к заголовкам и текстовым полям слайдов. Если текст, который вы хотите удалить, последовательно находится в одном из этих полей, простейшим решением было бы циклически перемещаться по слайдам, заменяя этот текст, а затем сохраняя копию документа.
tell application "Keynote"
open "/Path/To/Document"
repeat with currentSlide in slides of first slideshow
set title of currentSlide to " "
set body of currentSlide to " "
end repeat
save first slideshow in "/Path/To/Document without answers"
end tell
Если текст находится в контейнере, созданном с помощью инструмента текстового поля, я не думаю, что вы можете решить его с помощью Applescript, но Keynote использует формат файла на основе XML, поэтому вы можете попробовать сделать это, отредактировав XML с помощью сценариев язык по выбору. Схема XML описана в Руководстве по программированию iWork .