اذهب الي المحتوي
أوفيسنا

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


المستشار22

الردود الموصى بها

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

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

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

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

حياكم الله

رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

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

رابط هذا التعليق
شارك

  • 3 weeks later...

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

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

رابط هذا التعليق
شارك

  • 2 years later...

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

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

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

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

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

رابط هذا التعليق
شارك

  • 5 months later...
  • 3 months later...
  • 8 months later...
  • 11 months later...

أخي ابو أكرم

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

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

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:

رابط هذا التعليق
شارك

  • 2 years later...
  • 3 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information