He encontrado un hilo en el que la siguiente Applescript figura:
tell application "System Events" to set p to (path to frontmost application) as string
tell application "System Preferences"
activate
reveal anchor "Dictation" of pane "com.apple.preference.speech"
end tell
tell application "System Events"
tell process "System Preferences"
tell pop up button 1 of tab group 1 of window "Dictation & Speech"
click
if (get value of attribute "AXValue") contains "English (United States)" then
click menu item "German" of menu 1
say "Dictation set to German"
else if (get value of attribute "AXValue") contains "German" then
click menu item "English (United States)" of menu 1
say "Dictation set to English"
end if
end tell
end tell
end tell
quit application "System Preferences"
activate application p
He probado y funciona. Todo lo que tienes que hacer es cambiar el "alemán" para el idioma de su elección.
Además, puede sugerir una aplicación llamada FastScripts, que permite ejecutar applescript, ya sea desde la barra de menú superior o de un método abreviado de teclado.
Espero que este solucionado el problema!