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

إذا كان لديك عدة عشرات من ملفات الكلمات التي تحتوي على نفس المحتوى (مثل رأس الصفحة أو تذييلها أو بعض الكلمات الخاصة أو الأرقام) ، وتحتاج إلى استبدال نفس المحتوى عبر تلك المستندات في Word. كيف سيكون من الأسهل عليك القيام بذلك بسرعة؟ بالتأكيد ، يمكنك فتح هذه الملفات واحدة تلو الأخرى لاستبدال نفس المحتوى ، ولكن الأمر سيستغرق وقتًا طويلاً ومزعجًا. سيوضح لك هذا البرنامج التعليمي طريقة صعبة لاستبدال نفس المحتوى في مستندات متعددة في Word في وقت واحد.

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

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

1. صحافة قديم + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ كود فبا التالي في نافذة الوحدة النمطية.

كود فبا: البحث عن نفس المحتوى واستبداله عبر مستندات متعددة في وقت واحد

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
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  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .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
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. اضغط على F5 مفتاح لتشغيل الكود.

4. في الافتتاح تصفح النافذة ، من فضلك ابحث عن المستندات التي ستجدها واستبدلها بالداخل وحددها ، ثم انقر فوق OK زر. انظر لقطة الشاشة:

5. في الأول كوتولس للكلمة في مربع الحوار ، أدخل النص الذي ستجده عبر المستندات في ملف تجد ما مربع ، ثم انقر فوق OK .

6. في الثانية كوتولس للكلمة في مربع الحوار ، أدخل النص الذي ستستبدل به ، وانقر فوق OK .

8. انقر فوق OK زر في اليوم التالي ميكروسوفت ورد مربع الحوار لإنهاء البحث والاستبدال.

في هذه الحالة ، يتم استبدال كل الكلمات "Word" في المستندات المحددة بكلمة "Excel" في نفس الوقت.

يمكنك العثور بسهولة على نصوص مختلفة واستبدالها عبر مستندات متعددة في نفس الوقت باستخدام Kutools for Word

هنا نوصي بشدة بحث واستبدال دفعة سمة من سمات كوتولس للكلمة. باستخدام هذه الميزة ، يمكنك بسهولة العثور على نصوص مختلفة واستبدالها عبر مستندات Word متعددة في نفس الوقت. دعونا نرى كيفية تطبيق هذه الميزة للبحث عن النصوص واستبدالها عبر المستندات.

كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة لـ Word ، حر في المحاولة دون قيود 60 أيام.

1. الرجاء الضغط كوتولس بلس > بحث واستبدال دفعة لتمكين الميزة.

2. في ال بحث واستبدال دفعة مربع الحوار ، يرجى تكوين على النحو التالي.

• شنومكس) انقر فوق إضافة صف زر تحت بحث واستبدال التبويب؛
• 2.2) في حقول الصف التي تم إنشاؤها:

• 2.3) كرر الخطوتين 2.1 و 2.2 لإضافة المزيد من النصوص التي ستجدها وتستبدلها ؛
• شنومكس) انقر فوق  زر في نوع الملف قسم لإضافة مستندات Word حيث ستجد النصوص واستبدالها ؛
• شنومكس) انقر فوق استبدل or زر. انظر لقطة الشاشة:

3. أقفل ال بحث واستبدال دفعة مربع الحوار

لمزيد من المعلومات حول هذه الميزة ، من فضلك انقر هنا....

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

أفضل أدوات إنتاجية المكتب

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word

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

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

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

➕ إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  / اكتشف المزيد في أدخل المجموعة

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

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

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀

تحميل مجانا     تفاصيل أكثر     اشتري الآن