I got it.
----------------------------------------------------------------
use AppleScript version "2.5"
use framework "Foundation"
use scripting additions
----------------------------------------------------------------
property |⌘| : a reference to current application
# List of the languages known by the application -- here the 39 ones known by iWork and by the system
set known to {"ar", "ca", "cs", "da", "de", "el", "en_AU", "en_GB", "en", "es_419", "es", "fi", "fr_CA", "fr", "he", "hi", "hr", "hu", "id", "it", "ja", "ko", "ms", "nl", "no", "pl", "pt_PT", "pt", "ro", "ru", "sk", "sv", "th", "tr", "uk", "vi", "zh_CN", "zh_HK", "zh_TW"}
# Grab the System's language setting
set currentLocale to |⌘|'s NSLocale's currentLocale()
set preferredLanguages to |⌘|'s NSLocale's preferredLanguages() as list
--> (*fr-FR, en-FR, de-FR, sv-FR, zh-Hans-FR*)
--> (*pt-PT, fr-FR, en-FR, de-FR, zh-Hans-FR, pt-BR, fr-CA*) -- use Portuguese from Portugal
--> (*pt-BR, pt-PT, fr-FR, en-FR, de-FR, zh-Hans-FR, fr-CA*) -- use Portuguese from Brazil
--> (*fr-CA, pt-BR, pt-PT, fr-FR, en-FR, de-FR, zh-Hans-FR*) -- use French from Canada
set countryCode to currentLocale's countryCode as text --> "FR" -- "FR"
set activeLanguage to item 1 of preferredLanguages
if activeLanguage ends with "-" & countryCode then set activeLanguage to text 1 thru -4 of activeLanguage
if activeLanguage is "pt-BR" then set activeLanguage to "pt" -- use pt.lproj
if activeLanguage is "zh-Hant-MO" then set activeLanguage to "zh_CN" -- use zh_CN.lproj
if activeLanguage is "zh-Hant-TW" then set activeLanguage to "zh_TW" -- use zh_TW.lproj
if activeLanguage is "no" then set activeLanguage to "nb" -- use nb.lproj
if activeLanguage contains "-" then set activeLanguage to my remplace(activeLanguage, "-", "_")
if activeLanguage is not in known then set activeLanguage to "en"
-- Now we have the key to know which string to use.
tell application "Keynote"
set x to "1543.title"
set loc to localized string x from table "MainMenu"
if loc = x then
if sys2 < 14 then
if activeLanguage = "ar" then
set loc to "تصدير إلى"
else if activeLanguage = "ca" then
set loc to "Exportar a"
else if activeLanguage = "cs" then
set loc to "Exportovat do"
else if activeLanguage = "da" then
set loc to "Eksporter til"
else if activeLanguage = "de" then
set loc to "Exportieren"
else if activeLanguage = "el" then
set loc to "Εξαγωγή σε"
else if activeLanguage = "en_AU" then
set loc to "Export To"
else if activeLanguage = "en_GB" then
set loc to "Export To"
else if activeLanguage = "en" then
set loc to "Export To"
else if activeLanguage = "es_419" then
set loc to "Exportar a"
else if activeLanguage = "es" then
set loc to "Exportar a"
else if activeLanguage = "fi" then
set loc to "Vie muodossa"
else if activeLanguage = "fr_CA" then
set loc to "Exporter vers"
else if activeLanguage = "fr" then
set loc to "Exporter vers"
else if activeLanguage = "he" then
set loc to "ייצא אל"
else if activeLanguage = "hi" then
set loc to "इसमें एक्सपोर्ट करें"
else if activeLanguage = "hr" then
set loc to "Eksportiraj u"
else if activeLanguage = "hu" then
set loc to "Exportálás"
else if activeLanguage = "id" then
set loc to "Ekspor Ke"
else if activeLanguage = "it" then
set loc to "Esporta come"
else if activeLanguage = "ja" then
set loc to "書き出す"
else if activeLanguage = "ko" then
set loc to "다음으로 내보내기"
else if activeLanguage = "ms" then
set loc to "Eksport Ke"
else if activeLanguage = "nl" then
set loc to "Exporteer naar"
else if (activeLanguage = "no") or activeLanguage = "nb" then
set loc to "Eksporter til"
else if activeLanguage = "pl" then
set loc to "Eksportuj do"
else if activeLanguage = "pt_PT" then
set loc to "Exportar Para"
else if activeLanguage = "pt" then
set loc to "Exportar Para"
else if activeLanguage = "ro" then
set loc to "Exportă în format"
else if activeLanguage = "ru" then
set loc to "Экспортировать в"
else if activeLanguage = "sk" then
set loc to "Exportovať ako"
else if activeLanguage = "sv" then
set loc to "Exportera till"
else if activeLanguage = "th" then
set loc to "ส่งออกไปยัง"
else if activeLanguage = "tr" then
set loc to "Şuraya Aktar"
else if activeLanguage = "uk" then
set loc to "Експортувати в"
else if activeLanguage = "vi" then
set loc to "Xuất ra"
else if activeLanguage = "zh_CN" then
set loc to "导出为"
else if activeLanguage = "zh_HK" then
set loc to "輸出至"
else if activeLanguage = "zh_TW" then
set loc to "輸出至"
else
set loc to "Export To"
end if
else -- Mojave or higher
set loc to "Export to"
end if
end if
set exportTo_loc to loc
end tell
-- or, faster:
if activeLanguage = "ar" then
set loc to "تصدير إلى"
else if activeLanguage = "ca" then
set loc to "Exportar a"
else if activeLanguage = "cs" then
set loc to "Exportovat do"
else if activeLanguage = "da" then
set loc to "Eksporter til"
else if activeLanguage = "de" then
set loc to "Exportieren"
else if activeLanguage = "el" then
set loc to "Εξαγωγή σε"
else if activeLanguage = "en_AU" then
set loc to "Export To"
else if activeLanguage = "en_GB" then
set loc to "Export To"
else if activeLanguage = "en" then
set loc to "Export To"
else if activeLanguage = "es_419" then
set loc to "Exportar a"
else if activeLanguage = "es" then
set loc to "Exportar a"
else if activeLanguage = "fi" then
set loc to "Vie muodossa"
else if activeLanguage = "fr_CA" then
set loc to "Exporter vers"
else if activeLanguage = "fr" then
set loc to "Exporter vers"
else if activeLanguage = "he" then
set loc to "ייצא אל"
else if activeLanguage = "hi" then
set loc to "इसमें एक्सपोर्ट करें"
else if activeLanguage = "hr" then
set loc to "Eksportiraj u"
else if activeLanguage = "hu" then
set loc to "Exportálás"
else if activeLanguage = "id" then
set loc to "Ekspor Ke"
else if activeLanguage = "it" then
set loc to "Esporta come"
else if activeLanguage = "ja" then
set loc to "書き出す"
else if activeLanguage = "ko" then
set loc to "다음으로 내보내기"
else if activeLanguage = "ms" then
set loc to "Eksport Ke"
else if activeLanguage = "nl" then
set loc to "Exporteer naar"
else if (activeLanguage = "no") or activeLanguage = "nb" then
set loc to "Eksporter til"
else if activeLanguage = "pl" then
set loc to "Eksportuj do"
else if activeLanguage = "pt_PT" then
set loc to "Exportar Para"
else if activeLanguage = "pt" then
set loc to "Exportar Para"
else if activeLanguage = "ro" then
set loc to "Exportă în format"
else if activeLanguage = "ru" then
set loc to "Экспортировать в"
else if activeLanguage = "sk" then
set loc to "Exportovať ako"
else if activeLanguage = "sv" then
set loc to "Exportera till"
else if activeLanguage = "th" then
set loc to "ส่งออกไปยัง"
else if activeLanguage = "tr" then
set loc to "Şuraya Aktar"
else if activeLanguage = "uk" then
set loc to "Експортувати в"
else if activeLanguage = "vi" then
set loc to "Xuất ra"
else if activeLanguage = "zh_CN" then
set loc to "导出为"
else if activeLanguage = "zh_HK" then
set loc to "輸出至"
else if activeLanguage = "zh_TW" then
set loc to "輸出至"
end if
set export_loc to loc
#=====
on remplace(t, d1, d2)
local oTIDs, l
set {oTIDs, AppleScript's text item delimiters} to {AppleScript's text item delimiters, d1}
set l to text items of t
set AppleScript's text item delimiters to d2
set t to l as text
set AppleScript's text item delimiters to oTIDs
return t
end remplace
#=====
Yvan KOENIG running High Sierra 10.13.6 in French (VALLAURIS, France) vendredi 27 mars 2020 12:18:59