[piotro9x]

Witam. Czy posiada ktoś może makro do obsługi translatora Deepl z wykorzystaniem oczywiście klucza API ??. Translator jako formuła do wpisania w komórce.

[umiejead]

A co to makro miałoby robić? Nie chodzi ci czasem o UDF?
.

[piotro9x]

Miało by poprzez funkcje w komórce tłumaczyć tekst w wybranych języka podobnie jak działa googletranslate [=GoogleTranslate(A2, "es", "en")] czy microsofttranslate. Tłumaczenie poprzez translator microsftu (https://sysmod.wordpress.com/2019/04/03/ms-azure-cognitive-services-v3-api-translator-vba/) działa bez zarzutu, posiadając klucz API można przetłumaczyć do 1mln znaków miesięcznie. Natomiast pracując na translatorach od jakiegoś czasu mogę stwierdzić że dla moich potrzeb deepl jest najbardziej dokładny.

[umiejead]

Jęz. ang.: deklinacji tam nie ma.
Wyłapie kontekst?

"I saw a man with a telescope"

Tłum.:

- "Zobaczyłem człowieka przez teleskop" - (przez urz. opt.)
czy:
- "Zobaczyłem człowieka z teleskopem"?

Nic nie zarzucam - ciekaw jestem!
.

[piotro9x]

DeepL tak, zresztą bing microsoftu też natomiast sprawdzając tłumaczenia i porównując stwierdzam, że deepL ma sporą przewagę zarówno nad google jak i bingiem (bynajmniej w moich tłumaczeniach).

[Auditorius]

Z tzw. skrzynki wujka - obsługiwało IE , trzeba przerobić na XML/http ale 80% pracy zrobione...

Wiem przy dziecku po niemiecku ...ale taką mam wersję :)

---

Translate DeepL.xlsm

Pobierz Plik ściągnięto 37 raz(y) 49.17 KB

[Marecki]

Przetestuj taką funkcję.

Kod:

Sub Test() Dim x As String     x = Deepl("Hello, world!", "DE")     MsgBox x End Sub Function Deepl(sText As String, Lang As String) As String Const ApiKey As String = "DeepL-Auth-Key f35d77e7-08d5-bcd5-c4cb-8db0fa2257a5:fx"    'Tu wpisz swój klucz Api Dim Param As String Dim xmlHttp As Object     Param = "text=" & Application.EncodeURL(sText) & "&target_lang=" & Lang     Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")     With xmlHttp         .Open "POST", "https://api-free.deepl.com/v2/translate", False         .setRequestHeader "Host", "api-free.deepl.com"         .setRequestHeader "Authorization", ApiKey         .setRequestHeader "User-Agent", "Mozilla/5.0"         .setRequestHeader "Content-Length", VBA.Len(Param)         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"         .Send (Param)         If .Status <> 200 Then             Deepl = .Status         Else             Deepl = .ResponseText         End If     End With         Set xmlHttp = Nothing End Function

Funkcja u mnie zwraca zawsze kod błędu 403, czyli nieautoryzowany dostęp do zasobu serwera, co jest oczywiste, bo nie mam klucza API.
Co prawda można go uzyskać za darmo, ale trzeba podać dane karty kredytowej, a to mi się nie uśmiecha.
Jak masz taki klucz to wpisz go do funkcji i testuj.
Ja bez tego klucza nic więcej nie mogę zrobić, nie mam jak testować tego kodu.