Данная VBA функция позволяет перевести текст с любого языка на другой
Язык исходного текста можно не указывать - Google распознает его самостоятельно.
(т.е. вызовы res$ = Translate(txt$, "en", "ru") и res$ = Translate(txt$, "en") равнозначны)
Добавлено 17.10.2011
В данный момент функция не работает для большого числа запросов - Google недавно ввёл ограничение.
Решение для обхода этого ограничения сложное, потому пока мной не реализовано (не было необходимости)
Добавлено 07.03.2012
Исправленный вариант функции вы можете найти в конце статьи. (теперь снова можно выполнять автоматизированный перевод любого количества фраз на любые языки)
Алгоритм функции немного изменился - но это и не важно, главное, что перевод снова работает.
Пример использования перевода на листе Excel - во
втором прикреплённом файле
Sub ПримерИспользованияФункцииПеревода()
txt$ = "Привет! Это функция перевода текста на иностранный язык"
res$ = Translate(txt$, "en", "ru")
MsgBox "Результат перевода на английский:" & vbNewLine & res$, vbInformation, txt$
res$ = Translate(txt$, "de")
MsgBox "Результат перевода на немецкий:" & vbNewLine & res$, vbInformation, txt$
End Sub
Список кодов доступных языков для перевода:
(используются в качестве параметров функции Translate)
ar - арабский; bg - болгарский; cs - чешский;
da - датский ; de - немецкий; el - греческий;
en - английский; es - испанский; fi - финский;
fr - французский; hi - хинди; hr - хорватский;
it - итальянский; ja - японский; ko - корейский;
nl - голландский; no - норвежский; pl - польский;
pt - португальский; ro - румынский; ru - русский;
sv - шведский; zh-cn - китайский упрощенный; zh-tw - китайский традиционный