• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

CRAZY_IN_LOVE

اعضاء جدد
  • عدد المشاركات

    39
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

-1 مقبول

عن CRAZY_IN_LOVE

  • الرتبة
    عضو جديد
  1. السلام عليكم  الاخوه الكرام لدي مثال اجنبي عباره عن ترجمه كان شغال معاي من فتره وقبل يومين اصبح لايترجم ويضهر خطاء بالكود اتوقع ان موقع الجوجل للترجمه غير الاكواد الخاصه به . فارجو منكم المساعدة لكي يفيدنا جميعا  ولكم جزيل الشكر وفائق الاحترام Google Translate.mdb
  2. السلام عليكم اخي القحم جزاك الله الف خير سبق وان خدمتني بحل مثال WebAppFiller ولكن ظهر لي مشكله فارجو منك التكرم ومن الاخوه الكرام بحلها ولكم مني جزيل الشكر WebAppFiller.mdb
  3. السلام عليكم اختي الكريمه ام عهود مازلت اعاني من المشكله تم تغيير نسخت الافس علي عدت اجهزه والخطاء موجود ارجو مساعدتي ولكم الشكر وكل الاحترام
  4. السلام عليكم اختي ام عهود مازالت المشكله موجوده تم تغيير نسخت الاوفس علي كم جهاز ونفس المشكله ماعلم ما المشكله ... وارجو المعذره
  5. السلام عليكم اخي امير اشكرك علي سرعه الرد هل بالامكان رفع البرنامج مره اخره علما انا استخدم office 2003
  6. السلام عليكم اسف علي ازعاجك اختي ام عهود ..نفس المشكله وتم فرمتت الجهاز ايضا ارجو المساعده وجزاك الله خير الجزاء
  7. جزاك الله الف خير سيتم حذف النسخه وانزالها من جديد وابلاغك
  8. السلام عليكم اختي زهره تم تجربه البرنامج ولكن تظهر لي رساله خطا Public Function TranslateEn(ByVal strText As String, _                          Optional ByVal eFrom As eLanguage = English, _                          Optional ByVal eTo As eLanguage = Arabic) As String    Dim strUrl As String    Dim strResult As String     strText = Replace$(strText, Chr$(32), "%20")    strText = Replace$(strText, Chr$(160), "%20")     strUrl = "http://translate.google.com/translate_a/t?client=t&text={S}&hl=en&sl={F}&tl={T}&multires=1&pc=0&rom=1&sc=1"    strUrl = Replace$(strUrl, "{S}", strText)    strUrl = Replace$(strUrl, "{F}", Split(strSHORTCODES, ",")(eFrom))    strUrl = Replace$(strUrl, "{T}", Split(strSHORTCODES, ",")(eTo))     With CreateObject("MSXML2.XMLHTTP")        Call .Open("get", strUrl, False)        Call .Send        strResult = .responseText    End With     strResult = Replace$(Mid$(CStr(Split(strResult, ",")(0)), 4), Chr$(34), "")    TranslateEn = strResultEnd Function
  9. السلام عليكم اشكرك اخي أمير علي المشاركه والمطلوب تحويل بمعنى كلمة Data  اريدها داتا وجزاكم الله الف خير
  10. السلام عليكم الاخوه اعضاء ومشرفين المنتدي الكرام هل من مساعد الله يجزاكم الجنه
  11. ممكن الاستقاده من هذا الكود ,, منقول   Public Sub Ali_Trn()On Error Resume NextDim ArDim S_A$[C2] = "يرجـــا الإنتظـــار"S_A = [A2].TextIf S_A = "" Then MsgBox "خلية النص المراد ترجمته فارغه", vbExclamation, "تنبية !!!": Exit SubAr = Ali_HT(S_A)For Each Num In Array("[", ]")     Ar = Replace(Ar, Num, "")Next[B2].Value = Ar[C2] = "تم الترجمــة"Application.Wait (Now + TimeValue("0:00:5"))[C2] = ""End SubPublic Function Ali_HT(Te_A As String) As StringDim A_T As ObjectSet A_T = CreateObject("InternetExplorer.application")A_T.navigate "http://www.worldlingo.com/en/products_services/worldlingo_translator.html"     A_T.Visible = True     Wait_A A_T     A_T.document.all("wl_text").Value = Te_A     A_T.document.all("wl_srclang").selectedIndex = 8     A_T.document.all("wl_trglang").selectedIndex = 0     A_T.document.all("Submit").Click     Application.Wait (Now + TimeValue("0:00:20"))     Wait_A A_TAli_HT = A_T.document.all("wl_text_result").outerTextA_T.QuitEnd FunctionFunction Wait_A(A_T)Do Until A_T.ReadyState = 4     DoEventsLoopEnd Function