اريد كود ترجمة

[وليد المصرى 1]

السلام عليكم

هل يوجد كود ترجمة من اللغة الانجليزية الى العربية اقصد نحويل الحروف مثلما يوجد هذا الخاصية فى الاكسيل

اطلع على المرفق وانت تعرف ما اقصدة

[وليد المصرى 1]

هل يوجد حل اخواتى ؟

[محمود رواس]

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

الاخ الفاضل ، جرب هذا الرابط ممكن يفيدك http://www.officena....showtopic=32358

او http://www.officena....showtopic=41132

وشكراً ،،،

[وليد المصرى 1]

اخى الفاضل اشكرك ولكن لا يوجد ايضا حل

[محمود رواس]

اخي الفاضل جرب المرفق .

كود ترجمه.rar

[أبو أنس حاجب]

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

أخي الفاضل محمود رواس حفظكم الله

جزاك الله كل خير على هذا الكود الرائع.

ملاحظة بسيطة الأخ السائل يريد كود عكسي لذلك أي تحويل الأسماء اللاتينية (أي المكتوبة بلغة أنجليزية أو لاتينية) تحول إلى العربية.

حاولت التعديل في كودكم ولكن كانت الترجمة لدي غير دقيقة نرجو من الجميع المشاركة في تحويل الكود.

تقبل كل الشكر والتقدير والأحترام

أبو أنس

[وليد المصرى 1]

اشكرك اخى محمود جزاك الله خير

اشكرك اخى ابو انس انا متفق معك يا اخى ومنتظر الاخوه الاعضاء لحل هذا الكود

[وليد المصرى 1]

ارجو المساعدة

[وليد المصرى 1]

السلام عليكم

ولله انا محتاج كود او معادلة ضرورى

اشكركم

[وليد المصرى 1]

السلام عليكم

ارجو المساعدة من فضلكم

[الـعيدروس]

السلام عليكم

جرب هذا الكود

مشكلة الكود البطئ يحتاج نصف دقيقة لترجمة نص

والسبب الموقع الذي نأخذ الترجمة منه

اذا وجدت موقع اخر ترجمتة حسب النصوص اسرع منه ارفقه

وإن اشاء الله اعدل لك الكود لما يتناسب معه

Public Sub Ali_Trn()

On Error Resume Next

Dim Ar

Dim S_A$

[C2] = "يرجـــا الإنتظـــار"

S_A = [A2].Text

If S_A = "" Then MsgBox "خلية النص المراد ترجمته فارغه", vbExclamation, "تنبية !!!": Exit Sub

Ar = 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 Sub

Public Function Ali_HT(Te_A As String) As String

Dim A_T As Object

Set 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_T

Ali_HT = A_T.document.all("wl_text_result").outerText

A_T.Quit

End Function

Function Wait_A(A_T)

Do Until A_T.ReadyState = 4

	 DoEvents

Loop

End Function

تحياتي

ترجمة_ASs.rar

تم تعديل ديسمبر 13, 2012 بواسطه عباد

[حامد يونس]

اللاخ ابو نصار اعتقد الاخ السائل كان يسأل عن ترجمة الاسماء وليس النصوص

فهل هناك طريقة معينة لعمل ذلك من خلال كود

وشكرا

[وليد المصرى 1]

اشكرك اخى ولكن انا اريد ترجمة اسماء او بمعنى ادق تحويل الحروف الانجليزية الى العربية وليست ترجمتها

[الـعيدروس]

جرب ترجمة الاسم الموجود في الملف

[وليد المصرى 1]

للرفع

[وليد المصرى 1]

للرفع ارجو المساعدة

[وليد المصرى 1]

السلام عليكم

الى الان لم  اجد حل فى ترجمة الاسماء الانجليزية الى العربية

 

هل يوووووووووووووجد حل جزكم الله خير

[وليد المصرى 1]

للرررررررررررررررررررررررررفع

[A L M A I S T R O]

السلام عليكم

الى الان لم  اجد حل فى ترجمة الاسماء الانجليزية الى العربية

 

هل يوووووووووووووجد حل جزكم الله خير

 

الاداة بالمرفق تترجم كل شيء وبأى لغة

ارجوا ان يكون هذا ما تريد

 

تحياتى،،،

Translation Names.rar