Note: The other languages of the website are Google-translated. Back to English

كيفية البحث عن كلمات متعددة واستبدالها في نفس الوقت في مستند 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 ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (21)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Toto jsem hledal، jen potřebuji pro hledan text přidat nějaké formátování. جاك توهو دوسانو؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل سيعمل هذا في Office Excel 365
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أي طريقة لجعل هذه الحالة حساسة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هذا يعمل جيدًا مع الكلمات الإنجليزية. الآن أقوم بعمل مستند حيث أترجم الإنجليزية إلى الغوجاراتية. لذلك ، عندما أقوم بتطبيق هذا ، (البحث عن الكلمات الإنجليزية) و (الاستبدال بكلمات الغوجاراتية) ، فإنه يتغير ولكنه يظهر مثل "؟؟؟". لا تظهر الكلمة الغوجاراتية ولكن فقط علامات الاستفهام؟ هل من مزيد من المساعدة؟ لو سمحت.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شايش ، تواجه نفس المشكلة. هل وجدت حلا لها. أحاول أيضًا معرفة كيفية التغيير من الصينية إلى الإنجليزية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية البحث عن عدة كلمات واختيارها في نفس الوقت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
بعد تشغيل الكود ، سيظهر مربع حوار Kutools for Excel ، يرجى إدخال الكلمات الرئيسية التي ستجدها وفصلها بفاصلات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف يمكن مراجعة هذا الماكرو لأخذ المزيد من الكلمات الرئيسية؟ لدي حوالي 170 كلمة أود البحث عنها واستبدالها
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا JM ،
بعد تشغيل الكود ، سيظهر مربع حوار Kutools for Excel ، يرجى إدخال الكلمات الرئيسية التي ستجدها وفصلها بفاصلات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! أولا ، مبروك على عملك: هذا الماكرو مفيد جدا وشيق! أود ، على الإطلاق ، أن تساعدني بشيء واحد. أنا مصحح لغوي وأرغب في تمييز البدائل باللون الأخضر أو ​​الأحمر. كيف يمكنني أن أفعل هذا؟ هل هناك سطر كود يمكنني استخدامه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، يمكن لميزة Batch Find and Replace الخاصة بـ Kutools for Word أن تحل مشكلتك تمامًا ، يمكنك المحاولة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد الضغط على Replace ، انتقل إلى Preview ولا يفعل أي شيء آخر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Ajs ، تم استبدال جميع الكلمات المطلوبة بنجاح مرة واحدة بعد الضغط على زر "استبدال". ينتقل إلى علامة التبويب معاينة لمساعدتك في معرفة عدد الكلمات التي تم استبدالها بنجاح. بعد ذلك ، أغلق مربع الحوار.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت أحاول استبدال الفواصل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يمكن أن يساعد رمز VBA في استبدال الفواصل. يمكنك تطبيق Kutools لتحقيق.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في التعليمات الأولى (البحث عن كلمات متعددة واستبدالها في نفس الوقت في Word باستخدام رمز VBA) ، لا تجد حالات حيث تقع الكلمة المراد استبدالها في منتصف الكلمة (على سبيل المثال ، .com بعد اسم موقع ويب) . هل يمكن تعديل هذا للقيام بذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا على المشروع ، هل يمكنك جعله بالطريقة التي يمكننا بها أيضًا استبدال الأحرف في الكلمات. على سبيل المثال ، إذا كنت أرغب في تغيير الدولار إلى DoLLar ، فإنه لا يعمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Chào bạn ، có cách nào thay thế RẤT NHIỀU cụm từ bằng RẤT NHIỀU cụm từ khác (nhập từng cụm từ rất thời gian) bằng cách m lập một ct cóm cóm cụm từích được không؟ رت كام في بن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا نغوين فيك لام ،
أوصي بتطبيق ميزة Batch Find and Replace في Kutools for Word (الطريقة الثانية في هذا المنشور) لحل هذه المشكلة.
في مربع الحوار "بحث واستبدال" ، بعد إنشاء العمودين اللذين تحتاجهما ، يمكنك حفظ الإعدادات الحالية كسيناريا لاستخدامها في المستقبل.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Cám on Crystal، cách này có thể áp dụng với một số lượng nhỏ các cụm từ، nếu với số lượng các cụm từ lớn (hơn 1000، hơn 10000 .. cụm từ) thì rất thủ nh. Vậy có cách nào khác không bạn؟ Cám on bạn đã trả lời
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا نغوين فيك لام ،
غير قادر مؤقتًا على التعامل مع هذه المشكلة برمز VBA لأنه معقد بعض الشيء. سيتم النظر في هذه الميزة للترقية في الإصدار التالي. آسف للإزعاج.
لا توجد تعليقات منشورة هنا حتى الآن
يرجى ترك تعليقاتك باللغة الإنجليزية
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL