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

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

في مستند Word ، يمكننا تطبيق وظيفة البحث والاستبدال للعثور على نص واحد واستبداله بسرعة. ولكن ، إذا كانت هناك عدة نصوص تحتاج إلى العثور عليها واستبدالها ، فأدخل النص واحدًا تلو الآخر في ميزة البحث والاستبدال سيستغرق وقتًا طويلاً. في هذه الحالة ، يمكنك إدخال البحث عن النصوص واستبدالها في قائمة الخلايا ، وبمساعدة رمز VBA في Excel لإنجاز هذه المهمة بسهولة. في هذه المقالة ، سأقدم أيضًا ميزة مفيدة للبحث عن النصوص واستبدالها في مستندات Word متعددة.

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

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

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


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

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

1. في ورقة عمل Excel ، قم بإنشاء عمود يحتوي على النصوص التي تريد البحث عنها واستبدالها ، وعمودًا آخر يحتوي على نصوص لاستبدالها كما هو موضح أدناه. ثم اضغط على Alt + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. بعد لصق الكود ، لا يزال في ملف ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق الأدوات > المحلية، انظر لقطة الشاشة:

4. في المنبثقة المراجع - VBAProject في مربع الحوار ، حدد ملف مكتبة كائنات Microsoft Word 16.0 من مربع القائمة ، انظر لقطة الشاشة:

5. انقر OK زر لإغلاق مربع الحوار ، والآن ، اضغط على F5 مفتاح لتشغيل هذا الرمز ، في نافذة التصفح المنبثقة ، حدد ملف Word الذي تريد استبدال النصوص ، انظر لقطة الشاشة:

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

7. ثم انقر فوق OK الآن ، تم العثور على النصوص واستبدالها بالنصوص الجديدة في المستند المحدد الخاص بك ، ويتم فتح الملف أيضًا ، يجب عليك حفظه للاحتفاظ بالتغييرات.


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

هنا ، أقوم أيضًا بإنشاء رمز VBA للبحث عن نصوص متعددة واستبدالها في مستندات Word متعددة ، يرجى القيام بذلك على النحو التالي:

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

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

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

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. لا يزال في ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق الأدوات > المحلية، في المراجع - VBAProject في مربع الحوار ، حدد ملف مكتبة كائنات Microsoft Word 16.0 و وقت تشغيل البرمجة لـ Microsoft خيارات من مربع القائمة ، انظر لقطة الشاشة:

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

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

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

7. انقر OK لإغلاق الحوار. ويمكنك الذهاب إلى الملفات للتحقق من النتائج المحولة.


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

في هذا القسم ، سأتحدث عن كيفية البحث عن النصوص واستبدالها في مستندات Word متعددة من Word بدلاً من Excel. بأداة قوية-كوتولس للكلمة، يمكنك العثور بسرعة على نصوص محددة واستبدالها بنصوص جديدة في الملف الرئيسي ، والعنوان ، والتذييل ، والتعليقات ، وما إلى ذلك ، وتسليط الضوء على النتائج حسب حاجتك.

1. افتح ملف Word واحدًا ، ثم انقر فوق "نعم" كوتولس بلس > بحث واستبدال دفعة، انظر لقطة الشاشة:

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

  • انقر أضف زر لإضافة ملفات Word حيث تريد البحث عن النصوص واستبدالها ؛
  • في الجزء الأيمن ، انقر فوق "نعم" اضف سطر من الشريط العلوي
  • في الحقل المدرج ، أدخل النص الأصلي والنص الجديد في ملف البحث و استبدل بشكل منفصل عن الأعمدة التي تريد البحث عنها واستبدالها. كذلك ، يمكنك تحديد لون لإبراز النصوص المستبدلة حسب حاجتك.

3. بعد إنشاء معايير البحث ، انقر فوق استبدل زر للذهاب إلى نتيجة المعاينة علامة التبويب لعرض نتائج البحث والاستبدال. انظر لقطة الشاشة:

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

نصائح: يمكن أن تساعد هذه الميزة أيضًا في تحقيق العمليات التالية:
  • البحث عن الأحرف الخاصة واستبدالها في مستندات Word المتعددة ؛
  • البحث عن سلاسل متعددة واستبدالها بتنسيق محدد في مستندات Word متعددة ؛
  • ابحث عن سلاسل متعددة واستبدلها في ملفات txt / htm / html متعددة.

انقر لمعرفة المزيد من المعلومات التفصيلية عن هذه الميزة ...


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (4)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تحيات،
الكود الأول:
رمز VBA: ابحث عن نصوص متعددة واستبدلها في ملف Word واحد

يظهر خطأ: تجميع خطأ لم يتم تعريف النوع المحدد من قبل المستخدم
https://i.imgur.com/FZPBy4I.png
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ايريك
الكود يعمل بشكل جيد.
ربما ، أنت لم تحقق مكتبة كائنات Microsoft Word 16.0 من المراجع - VBAProject صندوق المحادثة.
هذا يعني أنك قد تفوت الخطوتين 3 و 4 من هذه المقالة.
يرجى المحاولة مرة أخرى ، إذا كان لا يزال لديك أي مشكلة أخرى ، يرجى التعليق هنا.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل.

خطأ في التحويل البرمجي: النوع المعرف من قبل المستخدم غير محدد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا بارام
الكود يعمل بشكل جيد.
ربما ، أنت لم تحقق مكتبة كائنات Microsoft Word 16.0 من المراجع - VBAProject صندوق المحادثة.
هذا يعني أنك قد تفوت الخطوتين 3 و 4 من هذه المقالة.
يرجى المحاولة مرة أخرى ، إذا كان لا يزال لديك أي مشكلة أخرى ، يرجى التعليق هنا.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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