طريقة بحث واستبدال مجموعة كلمات في وقت واحد

[شحادة بشير]

الأخ mr toto : نورت بمرورك الكريم

الأخ member : أهلا بك وشرفت الموضوع، لكن الطريقة غير فعالة وتحتاج إلى الكثير الكثير من الوقت

تخيل أن عندك عدة دفاتر تحضير كما حدث مع أخينا المستشار، وتريد الاستبدال في كل الدفاتر هل كل مرة ننفذ طريقتك

هذا سيحتاج منا الكثير، أما طريقة الماكرو فتمتلك من خلالها قاعدة بيانات هائلة، والكلمة التي تكتبها لن تكتبها مرة أخرى

حياكم الله

[المستشار22]

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

أخي العزيز : أبو أكرم ....

قاعدة البيانات التي أرسلت لى (( مشكورا)) توقفت عن العمل بعد مرور اكثر من شهر وكانت رائعة جدا

لا أدري ماهو السبب ؟؟؟

مع العلم انني نقلتها الى حاسب أخر فلم تعمل ....ولم تستبدل الكلمات التي اريد

وفقك الله لكل خير في الدنيا ولآخرة

[ابو ناره]

مشكوووووووووووووووووووووووووووور

[شحادة بشير]

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

لا أعلم سبب المشكلة ولا أتمنى أن لاتكون قد عطبت بالخطأ

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

أرجو منك أن تتكرم برفعها لننظر فيها

[alwed2]

الاخ ابو اكرم احتاج مساعدتك بتعديل قاعدة بيانات sql بلأمكان فتحها بالورد المشكله طبقت الشرح ومانضاف الماكرو في المستند جربت على مستند جديد للمحاوله ونفس المشكله يليت تتواصل معي على المسنجر al-kaltham5@al-wed.cc

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

[أبو مريم]

بارك الله فيك

[محمود كامل]

كل المرفقات عندى لا تعمل ولا أستطيع تحميلهاالرجاء دلونى ماذا أفعل

[محمود كامل]

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

لا أعلم سبب المشكلة ولا أتمنى أن لاتكون قد عطبت بالخطأ

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

أرجو منك أن تتكرم برفعها لننظر فيها

ألأخ أبو أكرم المرفقات عندى لا تعمل ماذا أفعل لكى استطيع تحميلها

[egyptian_eg]

السلام عليكم

عليك بتحميل برنامج winrar لفك ضغط الملفات

www.rarlabs.com

[egyptian_eg]

موضوع مرتبط

و به استكمال لفكرة الأخ أبو أكرم ، لتطبيق الفكرة على عدد من الملفات مرة واحدة

http://www.officena.net/ib/index.php?showtopic=29408

[شريف خضير]

شكراً وجارى تجربة الطريقة .

[شحادة بشير]

السلام عليكم

تم رفع الملف من جديد لمن طلبه

حياكم الله

بحث واستبدال.rar

[ahmed saif]

مجهود رائع

[تومي محمد]

أخي ابو أكرم

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

وها هو الخطا الذي يعينه وورد داخل الكود(باللون الاحمر)

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:="TATA")

While Not rs.EOF

With doc.Content.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

l:

[saeedelarabi]

السلام عليكم أستاذ ابو اكرم

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

لكن اذا انا زودت خانات جديدة  لاتتغير ما الحل ؟

[lerby-7]

شكراااا لك