كيفية البحث والاستبدال عبر ملفات متعددة في 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. أقفل ال بحث واستبدال دفعة مربع الحوار

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

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

أدوات إنتاجية Word الموصى بها