أرشيف ملتقى أهل الحديث - 4

ـ[يوسف القاضى]ــــــــ[11 - 05 - 07, 01:20 ص]ـ

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

انا الحمد لله اجيد عمل setup version للبرنامج و لكنى كلما اردت تحميل الكود لا يسمح لى المتصفح.

اذا استطاع احد ارسال الكود الى عن طريق البريد الالكترونى

[email protected]

ساضع ملف التستيب فى اسرع وقت ان شاء الله

جزاكم الله خيرا

ـ[محمد سمير]ــــــــ[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) وأفاد كاسبر سكاي بوجود فايروس نوع طروادة فأرجوا من الإخوة الانتباه.وجزاكم الله خيرا