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

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

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

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

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

1. افتح مستند Word الذي تريد البحث عنه واستبدال عدة كلمات في نفس الوقت ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

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

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

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

ملاحظة: في هذه الحالة ، كل شيء "KTE" في هذا المستند سيتم استبداله بـ "جديد"، و "KTO" و "KTW" سيتم استبدال مع "اختبار" و "إنهاء". الرجاء تغييرها لاحتياجاتك.

يمكنك العثور بسهولة على كلمات متعددة واستبدالها في نفس الوقت في Word بميزة مذهلة

1. قم بتشغيل تطبيق Microsoft Word ، انقر فوق كوتولس بلس > بحث واستبدال دفعة.

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

• 2.1 انقر فوق ملف زر> إضافة ملف or إضافة مجلد لإضافة مستند واحد أو أكثر ستجد فيه عدة كلمات واستبدالها.
  
• شنومك انقر فوق اضف سطر زر لإدراج حقول البحث والاستبدال. إذا كنت تريد البحث عن ثلاثة نصوص مختلفة واستبدالها في نفس الوقت ، فيرجى إنشاء ثلاثة صفوف.
• 2.3 في كل صف ، أدخل الكلمات الموجودة التي ستستبدلها بأخرى جديدة في البحث العمود ، ثم أدخل الكلمات الجديدة في ملف استبدل العمود.
• 2.4 تحديد نوع البحث لكل صف.
• 2.5 في تجد في العمود ، اختر مكان تطبيق البحث والاستبدال. ويشمل الوثيقة الرئيسية, رأس و تذييل في هذا القسم. يمكنك اختيار واحد منهم أو اثنين أو كل منهم حسب احتياجاتك.
• 2.6. انقر فوق استبدل زر لبدء العملية. انظر لقطة الشاشة:

ثم يتم استبدال الكلمات المحددة في المستندات المحددة في نفس الوقت.

تلميح: يمكنك تمييز النتيجة بلون الخلفية عن طريق تحديد لون معين في تنسيق تسليط الضوء عمود لصف.

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

---

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

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

• يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
• أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
• دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
• قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
• قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

التفاصيل حمل التطبيق الآن شراء