ـ[يوسف القاضى]ــــــــ[11 - 05 - 07, 01:20 ص]ـ السلام عليكم و رحمة الله و بركاته انا الحمد لله اجيد عمل setup version للبرنامج و لكنى كلما اردت تحميل الكود لا يسمح لى المتصفح. اذا استطاع احد ارسال الكود الى عن طريق البريد الالكترونى me_soul_mate@yahoo.com ساضع ملف التستيب فى اسرع وقت ان شاء الله جزاكم الله خيرا ـ[محمد سمير]ــــــــ[11 - 05 - 07, 01:31 م]ـ بارك الله فيكم وننتظركم ان شاء الله ـ[محمد سعيد]ــــــــ[11 - 05 - 07, 04:03 م]ـ أخي الكريم الطيماوي هل ممكن تعطيني نسخة كاملة من البرنامج مع الكود الخاص به؟ لأن الروابط لا تعمل ـ[يوسف القاضى]ــــــــ[11 - 05 - 07, 11:32 م]ـ السلام عليكم و رحمة الله اخى الكريم .. الروابط لاتعمل ـ[الطيماوي]ــــــــ[12 - 05 - 07, 04:20 م]ـ قام الاخوة في قالب البحوث والرسائل باضافته لبرنامجهم الإصدار الثامن (داخل الوورد ـ التشكيل السريع). http://www.temawy.com/ShowData.php?id=681 وقام الاخ الدرع بتطويره من خلال برنامج مستقل على الوورد: http://www.temawy.com/ShowData.php?id=675 وهذا كود البرنامج أخي محمد سعيد Dim doc As Document Dim db As DAO.Database Dim rs As Recordset Dim f As FileDialog Set f = Application.FileDialog(msoFileDialogFilePicker) f.Show If f.SelectedItems(1) = "" Then GoTo l Set doc = Application.ActiveDocument Set db = OpenDatabase(Name:=f.SelectedItems(1)) Set rs = db.OpenRecordset(Name:="Table1") While Not rs.EOF With doc.*******.Find .ClearFormatting .Text = rs(0) With .Replacement .ClearFormatting .Text = rs(1) End With .Execute Replace:=wdReplaceAll, _ Format:=True, MatchCase:=True, _ MatchWholeWord:=True End With rs.MoveNext Wend rs.Close db.Close Exit Sub ـ[أحمدمبارك]ــــــــ[08 - 01 - 09, 07:18 م]ـ السلام عليكم رحمة الله بركاته لقد حاولت الدخول إلى موقع www.temawy.com (http://www.temawy.com) وأفاد كاسبر سكاي بوجود فايروس نوع طروادة فأرجوا من الإخوة الانتباه.وجزاكم الله خيرا