كيفية البحث عن كلمات متعددة واستبدالها في نفس الوقت في مستند 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 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.

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

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

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

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

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

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

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

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

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

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

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