البحث في الموقع

انشئ مديول جديد و الصق فيه الشفرة التالية Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String On Error GoTo errorhandle Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _ "&sl=" & strFromSourceLanguage & _ "&tl=" & strToTargetLanguage & _ "&ie=UTF-8&prev=_m&q=" & EncodeQP2(strInput) Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.Send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.ResponseText .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "t0" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv Set objHTML = Nothing Set objHTTP = Nothing errorhandleexit: Exit Function errorhandle: MsgBox Err.Description Resume errorhandleexit End Function Function EncodeQP2(s As String) As String Dim i As Long Dim p1 As Long Dim p2 As Long Dim r As String Dim n As Long For i = 1 To Len(s) n = AscW(Mid(s, i, 1)) If n < 128 Then r = r & "%" & Hex(n) ElseIf n < 2048 Then p1 = n \ 64 r = r & "%" & Hex(p1 + 192) p2 = n Mod 64 r = r & "%" & Hex(p2 + 128) Else End If Next i EncodeQP2 = r End Function و في حصل الاستعلام او النموذج او اي مكان ضع التالي Translate([TextBox1], "auto", "en")

على طريقة المعقدين امثالى اعمل مديول ضع الوظيفة الاتية Enum TypeWHERE asString asDate asNumeric End Enum Dim rsArryFieldName As Variant Function RetrieveData(ByRef tableName As String, _ ByRef fieldName As String, _ Optional varMyWHERE As Variant = "", _ Optional TypeMyWHERE As TypeWHERE = TypeWHERE.asString, _ Optional LinkCriteria As String = "") As Variant ' This function retrieves data from the specified table and field based on the provided criteria. ' Translate the criteria type to the appropriate SQL syntax Select Case TypeMyWHERE Case TypeWHERE.asDate LinkCriteria = "[" & fieldName & "] = #" & varMyWHERE & "#" '| Date Case TypeWHERE.asNumeric LinkCriteria = "[" & fieldName & "] = " & varMyWHERE '| Numeric Case TypeWHERE.asString LinkCriteria = "[" & fieldName & "] = '" & varMyWHERE & "'" '| String End Select ' Declare a DAO Recordset variable Dim rs As DAO.Recordset ' Open a recordset based on the provided table and field names Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & tableName & " WHERE " & LinkCriteria) ' Check if the recordset is not empty If Not rs.EOF Then ' Create an array to hold values of all fields in the record Dim fieldValues() As Variant ReDim fieldValues(1 To rs.fields.Count) Dim i As Integer ' Populate the array with values from all fields For i = 1 To rs.fields.Count fieldValues(i) = rs.fields(i - 1).Value Next i ' Return the array containing values of all fields RetrieveData = fieldValues Else ' Return an empty string if no matching record is found RetrieveData = "" End If ' Close the recordset rs.Close Set rs = Nothing End Function وشوف التجربة من خلال هذا الروتين Sub ExampleUsage() ' Set the table name and field name Dim tableName As String Dim fieldName As String Dim criteriaValue As Variant Dim criteriaType As TypeWHERE ' Set default values tableName = "YourTableName" ' | << Set the table name fieldName = "YourFieldName" ' | << Set the field name criteriaValue = "YourCriteriaValue" ' | << Set Your Criteria Value criteriaType = TypeWHERE.asString ' | << Set the type of criteria and You can change it based on the case type of criteria ' Call the RetrieveData procedure Dim result As Variant result = RetrieveData(tableName, fieldName, criteriaValue, criteriaType) ' Display values of all fields in the array If IsArray(result) Then Dim i As Integer For i = 1 To UBound(result) Debug.Print i & ": " & result(i) Next i ' Display the value of field number 3 (For example, EmployeeName) Debug.Print result(3) Else ' If no matching record is found, show an appropriate message MsgBox "No matching record found for the specified criteria." End If End Sub وعيش مع الكود ومع بنات افكارك

المطلوب : 1-كتابة الترجمة في مربع الحوار txtOutput 2- إغلاق المتصفح بعد الترجمة والعودة للفورم 3- اختيار لغة الإدخال ولغة الترجمة 4- هل ممكن قراءة نص الإدخال وكذلك النص المترجم Google Translate.rar

لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك رابط القناة لمن لم يشترك معنا حتى الآن https://www.youtube.com/ostazmas2 #ostazmas ************ فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو ///////////////// وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا وجدت هذا الكود على النت يقوم بترجمة النصوص داخل النموذج عن طريق كوكل ترانسليت Option Compare Database Declare PtrSafe Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) Global LangFrom As String Global LangTo As String Public Function AutoTranslate(ByVal Text As String) 'Add references to [Microsoft Internet Controls], [Microsoft Scripting Runtime] and [Microsoft 14.0 Object Library] ' On Error GoTo Err_Point Dim IE As InternetExplorer Dim URL As String Dim liCount As Integer Text = Replace(Text, "/", "") Text = Replace(Text, "\", "") For liCount = 0 To 31 Text = Replace(Text, Chr(liCount), "") Next liCount If Len(LangFrom) < 1 Then LangFrom = "ar" End If If Len(LangTo) < 1 Then LangTo = "en" End If '"https://translate.google.com/#" & langfrom & "/" & langto & "/" & text URL = "https://translate.google.com.tr/" & LangFrom & "/" & LangTo & "/" & Text Set IE = New InternetExplorer IE.Visible = False IE.Navigate URL Do Until IE.ReadyState = 4 DoEvents Loop Sleep 1000 AutoTranslate = IE.Document.querySelector(".tlid-translation.translation").innerText IE.Quit Set IE = Nothing Exit Function Err_Point: IE.Quit Set IE = Nothing strMsg = err.Number & Chr(13) & err.Description strTitle = "Error during translation" strResponse = MsgBox(strMsg, vbCritical, strTitle) End Function دائما يظهر لي خطأ عند الكود التالي: AutoTranslate = IE.Document.querySelector(".tlid-translation.translation").innerText فما السبب Google-Tran.accdb

تفضل اضف هذا الكود في جميع الصفحات في حدث عند الفتح Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "Label" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") Form.Controls(ctl.Name).FontName = "Times New Roman" Form.Controls(ctl.Name).FontWeight = 900 End If If TypeName(ctl) = "CommandButton" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") Form.Controls(ctl.Name).FontName = "Times New Roman" Form.Controls(ctl.Name).FontWeight = 900 End If If TypeName(ctl) = "Page" Then Form.Controls(ctl.Name).Caption = Replace(Translate(Form.Controls(ctl.Name).Caption, "auto", "ar"), ":", "") End If Next ctl الترجمة بإستخدام Google Database12222.zip

اخي الكريم في البداية قم بإنشاء Module جديد و من خلال المكتبات قم بإضافة المكتبة التالية فقد يختلف رقم الإصدار حسب اصدار الأوفيس لديك و في Module الصق الكود التالي Option Explicit Public as1 As String Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?sl=" & strFromSourceLanguage & "&tl=" & strToTargetLanguage & "&q=" & strInput & "&hl=ar" Set objHTML = Nothing Set objHTTP = CreateObject("Msxml2.XMLHTTP.6.0") objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responseText .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "result-container" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv 'DoCmd.GoToRecord , , acNext End Function Function EncodeQP2(s As String) As String Dim i As Long Dim p1 As Long Dim p2 As Long Dim r As String Dim n As Long For i = 1 To Len(s) n = AscW(Mid(s, i, 1)) If n < 128 Then r = r & "%" & Hex(n) ElseIf n < 2048 Then p1 = n \ 64 r = r & "%" & Hex(p1 + 192) p2 = n Mod 64 r = r & "%" & Hex(p2 + 128) Else End If Next i EncodeQP2 = r End Function و لنأخذ مثال على ذلك لكي نترجم مربع نص من اللغة العربية الى الإنجليزية Dim FromLanguage, ToLanguage As String FromLanguage = "auto" ' الترجمة من أي لغة مختلفة ToLanguage = "en" ' الترجمة الى اللغة العربية [TextBox1] = Translate(EncodeQP2([TextBox1]), FromLanguage, ToLanguage) مرفق المثال لتطبيق اعلاه GoogleTran.accdb

جزاك الله خيرا استاذنا الفاضل من بعد اذن استاذي خسين تفضل اخي الكريم Option Compare Database Option Explicit Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long Private Sub أمر0_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "ar", "en") labal2.Caption = Translate(labal2.Caption, "ar", "en") labal13.Caption = Translate(labal13.Caption, "ar", "en") Me.أمر19.Visible = True Else MsgBox "تأكد من اتصالك بالانترنت" End If End Sub Private Sub أمر19_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "en", "ar") labal2.Caption = Translate(labal2.Caption, "en", "ar") labal13.Caption = Translate(labal13.Caption, "en", "ar") Else MsgBox "تأكد من اتصالك بالانترنت" End If End Sub تحياتي

السلام عليكم الاخوه الكرام لدي مثال اجنبي عباره عن ترجمه كان شغال معاي من فتره وقبل يومين اصبح لايترجم ويضهر خطاء بالكود اتوقع ان موقع الجوجل للترجمه غير الاكواد الخاصه به . فارجو منكم المساعدة لكي يفيدنا جميعا ولكم جزيل الشكر وفائق الاحترام Google Translate.mdb

اخي جعفر بالنسبة للمكتبة هذي ما استخدمتها اضفتها عشان اجري بعض التجارب لكنها غير مستخدمة يمكن ازالتها بالنسبة للتشفير و هذا سبب التأخير ارسال و استقبال النص الإنجليزي كان بصورة ممتازة لكن ارسال النص العربي كان فيه مشكلة كان يرسل بحروف و رموز لم يستطع المتصفح التعرف عليها طبعا المشكلة في لغة المتصفح أو الجهاز و للأسف ما عرفت اتوصل لترميز اللغة الصحيح فأضطريت اشوف طريقة ثانية ارسل فيها النص العربي بصورة سليمة فأكتشفت ان الرابط لما يتم تمرر من خلاله نص يتم تشفير النص و هذا كان هو الحل رابط بنص غير مشفر https://translate.google.com.my/?hl=ar&tab=rT&sl=ar&tl=en&text=مرحبا&op=translate و هذا الرابط مع النص المشفر و بهذي الطريقة نكون بإستطاعتنا تمرير النص العربي مهما اختلف الترميز https://translate.google.com.my/?hl=ar&tab=rT&sl=ar&tl=en&text=%D9%85%D8%B1%D8%AD%D8%A8%D8%A7&op=translate النص العربي مرحبا = %D9%85%D8%B1%D8%AD%D8%A8%D8%A7

اخي الكريم الطريقة التي تستخدمها جدا مجهدة ماذا لو أردت مستقبل اضافة لغة أخرى هل ستعيد بناء الكود من جديد ؟؟ 💡 اقتراح استخدم خدمة translate google فهي تحوي اغلب لغات العالم ان جازت لك الفكرة ستجد ادناه الطريقة للاستفادة منها انشئ Module جديد و اعطه اي اسم ترغب به و ثم اضف الكود التالي Option Explicit Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _ "&sl=" & strFromSourceLanguage & _ "&tl=" & strToTargetLanguage & _ "&ie=UTF-8&prev=_m&q=" & strInput Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responsetext .Close End With 'Range("H1") = objHTTP.responsetext Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "t0" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv Set objHTML = Nothing Set objHTTP = Nothing End Function بعد ان اضفنا الشفرة الخاصة بجلب اللغة نبدء الأن باستدعاء تلك الشفرة بالطاريقة التالية في حدث ازرار اللغة ضغط كود استدعاء الشفرة اعلاء لاستبدال اللغة المدخلة الى اللغة التي تريدها ' رسالة للتجربة MsgBox Translate("اهلا و سهلا", "ar", "en") بهذه الطريقة تستطيع بناء جدول يحتوي على جميع اللغات التي تريدها و بكل بساطه تستطيع ان تجعل برنامج يخدم جميع لغات العالم تقبل مروري

احبتي حتى لا أطيل في الشرح و بدون مقدمات قصتي تتضح من عنواني و نبدء الآن ... انشئ Module جديد و اضف الكود التالي Option Explicit Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _ "&sl=" & strFromSourceLanguage & _ "&tl=" & strToTargetLanguage & _ "&ie=UTF-8&prev=_m&q=" & strInput Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responsetext .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "t0" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv Set objHTML = Nothing Set objHTTP = Nothing End Function ثم يمكن تجربة هذه الشفرة الخاصة بتغيير لغة العرض بالطريقة التالية MsgBox Translate("اهلا و سهلا", "ar", "en") مرفق مثال تطبيقي على ما ورد اعلاه و دمتم في رعاية الله و حفظه ... . Data.mdb

لو سمحت تعاود التجربة ، بس الرقم 3 اصبح: https://translate.google.com/#view=home&op=translate&sl=ar&tl=en&text= واذا اشتغل ، استعمل هذا الكود في النموذج بدل الكود الموجود عندك: '.Navigate "https://translate.google.com.eg/?hl=ar&tab=rT#view=home&op=translate&sl=ar&tl=en&text=" & ss .Navigate "https://translate.google.com/#view=home&op=translate&sl=ar&tl=en&text=" & ss جعفر

اخي الكريم اليك التعديل بالتوفيق Google Translate.accdb

حياك الله أخي خليفة 🙂 باستخدام خاصية البحث في المنتدى ستجد العديد من المواضيع التي تتكلم عن نفس الموضوع .. ستستفيد منها إن شاء الله .. https://www.officena.net/ib/search/?q=Translate &quick=1&type=forums_topic&nodes=89&search_and_or=and

هذا أحد البرامج الأجنبية نزلته من فترة قريبة لعله يفيدكم 🙂 Speech.accdb وهذا ملف آخر فيه مجموعة من المكتبات الصوتية لمختلف اللغات ومن ضمنها العربية Translate&Speak_v4.3_64-bit.zip

وذاك مثال رائع كذلك من مكتبتى وناطق باللغتين العربية والانجليزية القاعدة ليست من تصميمى حصلتها من احد المنتديات الاجنبية Translate&Speak_v3.accdb

جرب هذا التعديل اضف الشفرة التالية في اي مكان داخل محرر الأكواد Private Function GTranslate(strInput As String, strInput2 As String, strInput3 As String) As String Dim strURL As String, objHTTP As Object, objHTML As Object, objDivs As Object, objDiv As Variant strURL = "https://translate.google.com/m?hl=" & strInput2 & _ "&sl=" & strInput2 & _ "&tl=" & strInput3 & _ "&ie=UTF-8&prev=_m&q=" & strInput ' سابقا 'Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") Set objHTTP = CreateObject("Msxml2.XMLHTTP.6.0") objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko" objHTTP.Send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responseText .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs Debug.Print objDiv.innerText If objDiv.className = "result-container" Then GTranslate = objDiv.innerText: Exit For End If Next objDiv Set objHTML = Nothing: Set objHTTP = Nothing End Function ضع في حدث الأزرار عند النقر الكود التالي MsgBox GTranslate("كرة", "en", "ar") في حال استمرار المشكلة يرجى ضبط اعدادات اللغة الاقليمة لديك

عليكم السلام. Private Function GTranslate(strInput As String, strFromLang As String, strToLang As String) As String Dim strURL As String, objHTTP As Object, objHTML As Object, objDivs As Object, objDiv As Variant strURL = "https://translate.google.com/m?hl=" & strFromLang & _ "&sl=" & strFromLang & _ "&tl=" & strToLang & _ "&ie=UTF-8&prev=_m&q=" & strInput Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.Send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responseText .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs Debug.Print objDiv.innerText If objDiv.className = "result-container" Then GTranslate = objDiv.innerText: Exit For End If Next objDiv Set objHTML = Nothing: Set objHTTP = Nothing End Function Private Sub cmd_ar_Click() MsgBox GTranslate(txt_from, "auto", "ar") End Sub Private Sub cmd_en_Click() txt_translate = GTranslate(txt_from, "auto", "en") End Sub

السلام عليكم اخي حلبي 🙂 خلينا نأخذ الخطوات التالية ، ورجاء تأكيد كل خطوة: 1. شغّل اي شيء فيه صوت في الكمبيوتر ، حتى تتأكد ان سماعات الكمبيوتر شغاله ، 2. افتح متصفح الانترنت internet explorer ، 3. ادخل في الموقع (انسخ العنوان الى عنوان المتصفح ، ولا تنقر عليه هنا) https://translate.google.com.eg/?hl=ar&tab=rT#view=home&op=translate&sl=ar&tl=en&text= 4. في الجانب اليمين الصق اي نص تريد (ولكن النص المُفضل هو ما كتبه الباشمهندس محمد 🙂 ) . 5. انقر على السماعة ، واسمع الصوت. واخبرنا النتيجة لوسمحت 🙂 جعفر

د.كاف يار استاذنا الكريم بارك الله فيك على مجهودك الكريم نعم تم تشغيل معي بدون غلطه 100% ولكن في التقرير في حدث عن الفتح حاولت اخلي يترجم ما داخل النص ولكني عجزت وستخدمت هذا الكود Private Sub Report_Open(Cancel As Integer) On Error Resume Next Items_NameAdd_Exch.Text = Translate(Items_NameAdd_Exch.Text, "ar", "en") End Sub ولكنه تفشل معي هل الترجمه تنص فقط على الليبل فقط ولا تنطبق على ماهو داخل النص شكرا لكم

نفضل اخي الكريم بعض المواضيع في المنتدى https://www.officena.net/ib/topic/71690-ترجمة-وكتابة-الاسماء-من-العربية-الى-الانجليزية-تلقائيا https://www.officena.net/ib/topic/87360-%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%AC%D9%88%D8%AC%D9%84-google-translate/ تحياتي

هل نسيتنا استاذ رمهان؟؟! مش ناسيك والله اخوي محمد ! ولكن المسالة قيد النظر ! وانشغلت حبتين ! وبحضور الاستاذ ابو عارف اتوقع الفرج قرب ! تحياتي اخي محمد: الاكسس 2013 يمكنه تحقيق المراد حسب ارشادات الرابط التالي https://translate.google.com.kw/translate?hl=ar&sl=en&u=http://www.groovypost.com/howto/word-excel-2013-save-to-pdf-password-protect-documents/&prev=search استاذنا الفاضل ابو عارف بقي ان تسعفنا في فتح الملف pdf المحمي ؟ كيف تمرر له الباسوورد ؟ مشكور من الاعماق

اخي محمد: الاكسس 2013 يمكنه تحقيق المراد حسب ارشادات الرابط التالي https://translate.google.com.kw/translate?hl=ar&sl=en&u=http://www.groovypost.com/howto/word-excel-2013-save-to-pdf-password-protect-documents/&prev=search

you welcome in times to come, please try to choose a suitable name for the subject because it bases posts in forums and we must all respect for those rules do not put your address is not suitable for the subject, as it did and you would have your own e-mail regarding the arabization list you can search the internet for the arabization of office suit version you are using, and so are all the menus to translate the arabic language that you want it as he can switch between languages when you want to after that with ease