كيف يمكنني البحث والاستبدال عبر عدة ملفات في Word؟

إذا كانت لديك عشرات ملفات Word تحتوي على محتوى متطابق—مثل الرؤوس أو التذييلات أو نصٍ معين—وتحتاج إلى استبداله في جميع المستندات دفعة واحدة، فإن القيام بذلك يدويًا سيكون أمرًا مملًّا للغاية. يقدم هذا البرنامج التعليمي طريقتين فعّالتين لاستبدال المحتوى نفسه أو محتوى مختلف عبر عدة مستندات Word في آنٍ واحد.

البحث والاستبدال النصوص عبر عدة مستندات Word في آنٍ واحد باستخدام كود VBA
استبدال البحث والاستبدال نصوص مختلفة عبر عدة مستندات في آنٍ واحد باستخدام Kutools for Word

البحث والاستبدال النصوص عبر عدة مستندات Word في آنٍ واحد باستخدام كود VBA

توضح هذه الطريقة كيفية استخدام كود VBA للعثور على محتوى معيّن واستبداله تلقائيًا عبر عدة مستندات دفعة واحدة.

1. اضغطAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر على «إدراج» > «وحدة»، ثم الصق الكود التالي:

   Sub CommandButton1_Click()
   'Updated by Extendoffice 20180625
   Dim xFileDialog As FileDialog, GetStr(1 To 100) As String
   Dim xFindStr As String
   Dim xReplaceStr As String
   Dim xDoc As Document
   On Error Resume Next
   Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
   With xFileDialog
       .Filters.Clear
       .Filters.Add "All WORD File ", "*.docx", 1
       .AllowMultiSelect = True
       i = 1
       If .Show = -1 Then
           For Each stiSelectedItem In .SelectedItems
               GetStr(i) = stiSelectedItem
               i = i + 1
           Next
           i = i - 1
       End If
       Application.ScreenUpdating = False
       xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
       xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
       For j = 1 To i Step 1
           Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
           Windows(GetStr(j)).Activate
           Selection.Find.ClearFormatting
           Selection.Find.Replacement.ClearFormatting
           With Selection.Find
               .Text = xFindStr
               .Replacement.Text = xReplaceStr
               .Forward = True
               .Wrap = wdFindAsk
               .Format = False
               .MatchCase = False
               .MatchWholeWord = False
               .MatchByte = True
               .MatchWildcards = False
               .MatchSoundsLike = False
               .MatchAllWordForms = False
           End With
           Selection.Find.Execute Replace:=wdReplaceAll
           ActiveDocument.Save
           ActiveWindow.Close
       Next
       Application.ScreenUpdating = True
   End With
   MsgBox "Operation end, please view", vbInformation
   End Sub

3. اضغطF5 لتشغيل الكود.
4. في نافذة الاستعراض، حدد المستندات التي ترغب في معالجتها، ثم انقر على «موافق».

   

5. في مربع الإدخال «البحث عن»، أدخل الكلمة أو العبارة التي ترغب في العثور عليها، ثم انقر على «موافق».

   

6. في مربع الإدخال «استبدال بـ»، أدخل نص الاستبدال المطلوب، ثم انقر على «موافق».

   

7. انقر على «موافق» في مربع حوار Microsoft Word النهائي.

   

سيتم استبدال جميع مثيلات النص المحدد في ملفات Word المختارة دفعةً واحدة.

استبدال البحث والاستبدال نصوص مختلفة عبر عدة مستندات في آنٍ واحد باستخدام Kutools for Word

تسمح لك ميزة «البحث والاستبدال الجماعي» فيKutools for Word بالعثور على عدة عناصر نصية واستبدالها دفعة واحدة عبر مستندات Word متعددة!

1. انقر على «Kutools» > «الاستبدال الجماعي».

   

2. في مربع حوار البحث والاستبدال الجماعي، قم بتكوين الإعدادات:
   1. انقر على زر «إضافة صف».
   2. في الصف الجديد:
      1. أدخل في حقل «بحث» النص الذي ترغب في العثور عليه.
      2. أدخل نص الاستبدال في حقل «استبدال».
      3. اختياريًا، حدد نوع البحث، والموقع الذي تريد أن تُجري فيه عملية البحث والاستبدال، ولون التمييز،以及其他 الخيارات حسب الحاجة في الأعمدة المقابلة.
   3. انقر على الزرفي قسم «نوع الملف» لإضافة ملفات Word إلى الدفعة.
   4. انقر على «استبدال» أو «بحث».
      تلميح:كرّر الخطوتين 1) و2) لإضافة مزيد من قواعد البحث والاستبدال.

      

3. أغلق مربع حوار البحث والاستبدال الجماعي بمجرد الانتهاء.

لمعرفة المزيد عن ميزة «البحث والاستبدال الجماعي»،اطّلع على صفحة البرنامج التعليمي.

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

🤖مزايا KUTOOLS AI: مساعد الذكاء الاصطناعي / مساعد الوقت الفعلي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل دفعة إلى PDF...

✏تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الصفوف والأعمدة في الجدول / تحويل الجدول إلى نص...

🧹تنظيف سهل: امسح بسهولةالمسافات الزائدة،فاصل المقطع،مربع النص، أوالروابط التشعبية. وللمزيد من أدوات الإزالة، انتقل إلى مجموعةإزالة...

➕إدراجات إبداعية: أدرجفواصل الآلاف،مربع اختيار،زر راديو،رمز QR،الباركود، أوصورًا متعددة! اكتشف المزيد في مجموعةإدراج...

🔍اختيارات دقيقة: حدد بدقةصفحات محددة / الجداول / الأشكال / فقرة عنوان. وعزّز تجربة التنقّل لديك باستخدامالمزيد من ميزات ال...تحديد

⭐تحسينات مميزة: التنقّل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين مستندات Windows / 11 أداة تحويلأدوات...

🌍يدعم أكثر من 40 لغة: استخدم كوتولز باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

 

تنزيل مجاني     اشترِ الآن     معرفة المزيد

 

---

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

تنزيل مجاني     اشترِ الآن     معرفة المزيد

 

---

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

⬇️ تنزيل الآن🎁 اشترِ الحزمة الكاملة📖 معرفة المزيد

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

• 🤖KUTOOLS AI ميزات:مساعد الذكاء الاصطناعي/مساعد الوقت الحقيقي/تلميع فائق/ترجمة فائقة/إخفاء المعلومات باستخدام الذكاء الاصطناعي/التدقيق اللغوي بالذكاء الاصطناعي
• 📘إتقان المستندات:تقسيم الصفحات/دمج المستندات/تحويل دفعة إلى PDF
• ✏تحرير المحتوى:البحث والاستبدال الجماعي/تغيير حجم جميع الصور
• 🧹تنظيف سهل:إزالة المسافات الزائدة/إزالة فاصل المقطع
• ➕إدراجات إبداعية:إدراج فواصل الآلاف/إدراج مربع اختيار/إنشاء رمز QR
• 🌍يدعم أكثر من 40 لغة: كوتولز يتحدث لغتك – يدعم أكثر من 40 لغة!

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools