إجمالي مرات مشاهدة الصفحة

السبت، 27 أغسطس 2016

الترجمة من اللغة العربية للغة الإنجليزية باستخدام جوجل Google Translator Using VBA

السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله

أقدم لكم اليوم كود يقوم بترجمة الكلمات أو الجمل من اللغة العربية إلى اللغة الإنجليزية ...


بفرض أن لديك قائمة من الكلمات باللغة العربية في العمود الأول ، والمطلوب ترجمة هذه الكلمات للغة الإنجليزية ، وذلك باستخدام الـ VBA

عند تشغيل الملف إذا استغرق تنفيذ الكود وقت طويل أو صادفتك رسالة التحذير التالية :
حل المشكلة أن تقوم بفتح المتصفح IE (الانترنت إكسبلورر) ثم نفذ الخطوات التالية (الشرح بالصور)


إليكم الكود المستخدم لتنفيذ المهمة

Sub Translate_From_Arabic_To_English()
    Dim IE      As Object
    Dim html    As Variant
    Dim lngto   As String
    Dim I       As Long

    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = 0
    lngto = "en"

    For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If Not IsEmpty(Cells(I, 1)) Then
            IE.navigate "https://translate.google.com/#ar/" & lngto & "/" & Range("A" & I).Value
    
            Do Until IE.ReadyState = 4
                DoEvents
            Loop
    
            Application.Wait (Now + TimeValue("00:00:02"))
            Range("B" & I).Value = IE.Document.getElementById("result_box").innerText
        End If
    Next I

    IE.Quit
    Set IE = Nothing
    
    MsgBox "Finished"
End Sub

وأخيراً إليكم الملف المرفق الذي يحتوي الكود ، ويحتوي على بعض الكلمات والجمل لاختبار الكود بها

إعداد / ياسر خليل أبو البراء

هناك 8 تعليقات:

  1. بارك الله فيك ونفع بك واسكنك الفردوس الاعلى

    ردحذف
  2. جزيت خيراً أخي العزيز على دعائك الطيب ، ولك بمثل إن شاء الله

    ردحذف
  3. ربنا يفتح عليك يا أستاذ ياسر ... دايماً عندك التميز والأختلاف

    ردحذف
  4. ربنا يبارك فيك يا كبير .. ومشكور على مرورك العطر بالمدونة
    تقبل وافر تقديري واحترامي

    ردحذف
  5. بارك الله فيك استاذنا الغالى

    ردحذف
  6. ربنا يبارك فيك أخي الكريم أشرف ونورت الموضوع بردك الطيب

    ردحذف
  7. مجهود طيب يا ريس هل ممكن العكس من الانجليزى الى العربى

    ردحذف
  8. بارك الله فيك ..اعكس اللغة
    يعني هتلاقي en غيرها لـ ar ، وهتلاقي ar غيرها لـ en

    ردحذف