قنديل الصياد

شكرا اخى العزيز

استاذى الحبيب تم تجربة البرنامج على ملف وورد خاص بحضرتك وتم تحويله الى ملف pdf و ملف فلاش بامتداد swf ولكن يلزم لتشغيل الامتداد swf برنامج وقد قمت بارفاقه اولا الملف الخاص بحضرتك على برنامج الوورد ثانيا برنامج تشغيل الامتداد swf الفلاشى ثالثا : البرامج الناتجة بعد التحويل ملف البى دى اف ملف الفلاش http://www.gulfup.com/?jESVHb

الاخ الاستاذ / محمد الكود السابق تظهر كلمات اللغة العربية بشكل مختلف اليك الكود صحيحا Function RANKING(X_Mar As Range, Cer_Range As Range, True_False As Boolean) Application.ScreenUpdating = False Dim Arr1, Arr2, Arr3 Dim RNK, ss As Integer Dim TEXT_M As String Dim TRT Arr1 = Array("", "الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر") Arr2 = Array(" ", "عشر", "العشرون", "الثلاثون", "الاربعون", "الخمسون", "الستون", "السبعون", "الثمانون", "التسعون") Arr3 = Array(" ", "المائة", "المائتنان", "الثلاثمائة", "الاربعمائة", "الخمسمائة", "الستمائة", "السبعمائة", "الثمانمائة", "التسعمائة") RNK = X_Mar RNK = WorksheetFunction.Rank(X_Mar, Cer_Range, 0) If True_False = True Then RNK = X_Mar '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Set MRange = Range(Cells(3, X_Mar.Column), Cells(X_Mar.Row - 1, X_Mar.Column)) If WorksheetFunction.CountIf(Cer_Range, X_Mar) <> 1 And WorksheetFunction.CountIf(MRange, X_Mar) >= 1 Then TEXT_M = " مكرر " '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- X1 = Right(RNK, 1): X2 = Left(RNK, 1): X3 = Left(RNK, 1) If Len(RNK) = 3 Then X2 = Left(Mid(RNK, 2), 1) '................................ TRT = Arr1(X1) & " و" & Arr2(X2) If X1 = 0 Then TRT = Arr2(X2) If X1 = 1 Then TRT = "الحادي و" & Arr2(X2) If X2 = 1 Then TRT = Arr1(X1) & " " & Arr2(X2) If X1 = 0 Then TRT = " العاشر " If X1 = 1 Then TRT = " الحادي عشر " End If '................................ If Len(RNK) = 1 Then RANKING = Arr1(X1) & TEXT_M If Len(RNK) = 2 Then RANKING = TRT & TEXT_M If Len(RNK) = 3 Then RANKING = TRT & " بعد " & Arr3(X3) & TEXT_M If Len(RNK) = 3 And X2 = 0 Then RANKING = Arr1(X1) & " بعد " & Arr3(X3) & TEXT_M If Len(RNK) = 3 And X1 = 0 And X2 = 0 Then RANKING = Arr3(X3) & TEXT_M If RNK = 1000 Then RANKING = "الآلــف" & TEXT_M Application.ScreenUpdating = True End Function

شكرا استاذى الحبيب

كل عام وحضراتكم جميعا بخير

وجزاك الله كل خير استاذى الحبيب

بارك الله فيك استاذ احمد

هذا االبرنامج من اقوى البرامج المنافسة لبرنامج الوورد وبحجم 4 ميجا تقريبا مرفق السريال والكيجن مع البرنامج مرفق رابطين لتحميل البرنامج الاول لتحميل البرنامج فقط http://www.atlantiswordprocessor.com/en/downloads.htm ـــــــــــــــــــــــــــــــــــــ الثانى لتحميل البرنامج ومرفق معه السريال والكيجن يمكن ان تستخدم السريال ويمكن ان تستخدم الكيجن ايهما تريد ـــــــــــــــــــــــــــــــــــــ رابط اضافى لتحميل السريال والكيجن فقط http://www.keygenguru.com/serial/atlantis_word_processor_1_6_4_1.html

الاخ / جمال اظن انه تم حل مشكلة الاوائل بهذ الملف وقد تم ادراجه قبل ذلك .. الا اذا انك الم تنظر للمشاركة من اساسه kصف أول 2014.rar

كتابة حرف او رقم وعليه دائرة

شرح برنامج وورد الطباعة

طباعة الملفات Word 2003

شرح كيفية طباعة صفحتين او اكثر في ورقة واحدة في الورد 2007 و 2010

شرح فيديو لكيفية عمل تنسيق شرطى لملفك

اخى العزيز اليك ملفك بعد التعديل التنسيق الشرطي.rar