Yandex Ceviri

[cellswhite]

İyi akşamlar arkadaslar,

Yandex.cevir yi kullanarak arapça-Tr çeviri yapıcam , ama latin alfabe olmadıgından dolayı işlemi gerçekleştiremiyorum , kodda ne gibi değişiklik yapmamız lazım,

Teşekkurler,

Alternatif öneriniz olursada onuda paylasırsanız sevinirim ,

İyi çalışmalar,

   Dim ie As Object
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object

URL = "https://ceviri.yandex.com.tr/?lang=ar-tr" & "&text=" & TextBox2 ''''[a1] hucresinde arapça texti alıyor

    'Calismaya Devam
    With WebBrowser1
        .navigate URL
        .Visible = True
DoEvents
        DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
        Do Until WebBrowser1.readyState = 4: DoEvents: Loop
         With .document.all
Application.Wait Now + TimeValue("00:00:02")
        TextBox1.Value = Trim(.TextBox2.innerText)
        Application.Wait Now + TimeValue("00:00:02")
        uzunluk = Len(.TextBox2.innerText)
        suzunluk = uzunluk - 58
        If suzunluk < 0 Then
        MsgBox "Çeviri Yapılamadı", vbCritical, "Dikkat"
        Exit Sub
        End If
         isimsiz = Right(TextBox1, suzunluk)
         
        ' Range("a1") = isimsiz
         'TextBox3.Value = Trim(.TextBox2.innerText) 'Right(TextBox1, suzunluk)
          TextBox3.Value = isimsiz 'Trim(.TextBox2.innerText)
          ' TextBox2 = Text
            End With
 End With
    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing