use dClick : script "dynamicClicker"
use dLib : script "display drop dialog"

–注意：使用前にPagesのカラーパレットが表示されていないことを確認すること！！！！

set aMainMes to "Drop Pages Document"
set aSubMes to "Drag and Drop Pages files to Table (.pages)"
set aUTI to "com.apple.iwork.pages.sffpages"
set aRes to (display drop dialog aUTI main message aMainMes sub message aSubMes with initial folder "" OK button title "Execute")

activate application "Pages"

repeat with i in aRes
　　set j to i as alias
　　
　　tell application "Pages"
　　　　open j
　　end tell
　　
　　chengeLangTo() of me
　　
　　tell application "Pages"
　　　　close front document with saving
　　end tell
　　
end repeat

on chengeLangTo()
　　set appName to "Pages" –Application Name
　　set aList to {"ファイル", "詳細", "言語と地域…"} –Localized Menu Title Structure
　　set aRes to clickSpecifiedMenuElement(appName, aList) of dClick
　　delay 1
　　changeDocLanguageSetting("英語", "アメリカ合衆国") of me –"English" , "United States"
　　–changeDocLanguageSetting("日本語", "日本") of me
end chengeLangTo

on changeDocLanguageSetting(targLang, targCountry)
　　activate application "Pages"
　　tell application "System Events"
　　　　tell process "Pages"
　　　　　　set winNum to 1
　　　　　　set nList to name of every window
　　　　　　if "テキストのカラー" is in nList then set winNum to 2 –Pagesのカラーパレットが表示状態の場合
　　　　　　
　　　　　　tell window winNum
　　　　　　　　tell sheet 1
　　　　　　　　　　
　　　　　　　　　　click pop up button 1
　　　　　　　　　　tell pop up button 1
　　　　　　　　　　　　tell menu 1
　　　　　　　　　　　　　　click menu item targLang
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　click pop up button 2
　　　　　　　　　　tell pop up button 2
　　　　　　　　　　　　tell menu 1
　　　　　　　　　　　　　　click menu item targCountry
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　click button "OK"
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end changeDocLanguageSetting