use AppleScript version "2.7" — High Sierra (10.13) or later
use framework "Foundation"
use framework "NaturalLanguage" –Mojave (10.14) or later
use scripting additions

tell application "Keynote"
　　set dCount to count every document
　　if dCount = 0 then
　　　　display notification "There is no Keynote document"
　　　　return {}
　　end if
end tell

set tOut to {}
set erOut to {}

tell application "Keynote"
　　tell front document
　　　　set sCount to count every slide
　　　　repeat with i from 1 to sCount
　　　　　　tell slide i
　　　　　　　　set tList to every text item
　　　　　　　　
　　　　　　　　repeat with i in tList
　　　　　　　　　　set aTmpStr to object text of i
　　　　　　　　　　if aTmpStr is not equal to "" then
　　　　　　　　　　　　set b1Res to guessLanguageCodeOf(aTmpStr) of me
　　　　　　　　　　　　set the end of tOut to b1Res
　　　　　　　　　　　　(*
　　　　　　　　　　　　if b1Res is not equal to "en" then
　　　　　　　　　　　　　　set the end of erOut to aTmpStr
　　　　　　　　　　　　else
　　　　　　　　　　　　　　set the end of tOut to b1Res
　　　　　　　　　　　　end if
　　　　　　　　　　　　*)
　　　　　　　　　　end if
　　　　　　　　end repeat
　　　　　　end tell
　　　　end repeat
　　end tell
end tell

set tPercent to calcOneItemsPercent(tOut, "en") of me

on guessLanguageCodeOf(theString as string)
　　set aNL to current application’s NLLanguageRecognizer’s alloc()’s init()
　　aNL’s processString:theString
　　set langRes to (aNL’s dominantLanguage()) as string
　　return langRes
end guessLanguageCodeOf

–true/falseで構成されるlistのうち、指定要素が占める割合を％で計算。小数点以下を四捨五入
on calcOneItemsPercent(aList, targItem)
　　set aLen to length of aList
　　set theCountedSet to current application’s NSCountedSet’s alloc()’s initWithArray:aList
　　set tRes to (theCountedSet’s countForObject:targItem)
　　if tRes < 1 then return 0
　　set pRes to (tRes / aLen) * 100
　　return (round pRes rounding as taught in school)
end calcOneItemsPercent