Дана VBA функція дозволяє перевести текст з будь-якої мови на інший
Мова вихідного тексту можна не вказувати - Google розпізнає його самостійно.
(Тобто виклики res $ = Translate (txt $, "en", "ru") і res $ = Translate (txt $, "en") рівнозначні)
Список кодів доступних мов для перекладу:
(Використовуються в якості параметрів функції 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 - китайський традиційний
Код функції перекладу:
(Додано пізніше)
Видозмінив функцію - тепер переклад знову працює
(Приклад використання - у другому прикріпленому файлі)
Макрос цей не буде доопрацьовуватися, - там тепер все складніше з гуглом, він зараз видає капчу.
Даний макрос використовується в складі програми «парсер сайтів», - там я перероблю (допрацюю) код.
А в вигляді окремого макроси викладати не буду, - так як код став набагато складніше через необхідність обробки капчи.
Якщо, в подальшому, з'явиться необхідність розробити макрос перекладу на базі іншого веб-сервера (де не буде капчи),
то викладу новий макрос. (На жаль, крім гугла, варіантів особливо немає. Інші перекладачі залишають бажати кращого)
Ну дуже потрібно перевести інформацію з тайського. Масив величезний, тому GoogleTranslate вкрай необхідний. Запропонуйте, як вирішити проблему, де пошукати, коли допрацюєте макрос? З щирою повагою.