كيف يمكن البحث عن نصوص متعددة واستبدالها في Word باستخدام Excel؟
المؤلفXiaoyang•تاريخ التعديل
في Microsoft Word، تُعد ميزة البحث والاستبدال وسيلة فعّالة للعثور بسرعة على نص معين واستبداله. ومع ذلك، عند الحاجة إلى استبدال عدة مصطلحات مختلفة، قد يستغرق إدخال كل منها يدويًا وقتًا طويلاً.
لتسهيل هذه العملية، يمكنك استخدام Excel لإنشاء قائمة بالنصوص التي ترغب في البحث عنها واستبدالها، ثم أتمتة المهمة بكود VBA بسيط. سيأخذك هذا الدليل خطوة بخطوة عبر استخدام Excel وVBA للبحث عن نصوص متعددة واستبدالها داخل مستند Word واحد. بالإضافة إلى ذلك، سأوضح لك كيفية توسيع هذه الطريقة لتشمل عدة مستندات، وأقدّم لك ميزة قوية من Kutools تتيح لك استبدال النصوص دفعة واحدة.
البحث والاستبدال نصوص متعددة في مستند Word واحد من Excel باستخدام كود VBA
إذا كنت ترغب في البحث عن نصوص واستبدالها داخل ملف Word واحد فقط، فإن كود VBA التالي سيُساعدك بكل سهولة.
1. في ورقة عمل Excel، أنشئ عمودًا يحتوي على النصوص التي تريد البحث عنها والاستبدال بها، وعمودًا آخر يحتوي على النصوص الجديدة التي سيتم استخدامها بدلًا منها، كما في لقطة الشاشة أدناه. بعد ذلك، اضغط على مفاتيحAlt + F11 في آنٍ واحد لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. بعد ذلك، انقر علىإدراج > وحدة نمطية (Module)، ثم انسخ والصق كود VBA أدناه في النافذة.
كود 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. في مربع الحوار المنبثقالمراجع – مشروع VBA، حدد من مربع القائمةMicrosoft Word 16.0 Object Library، انظر لقطة الشاشة:
5. انقر على زرموافقلإغلاق مربع الحوار، ثم اضغط على مفتاحF5 لتشغيل هذا الكود. في نافذة الاستعراض المنبثقة، حدد ملف Word الذي تريد استبدال النصوص فيه. انظر لقطة الشاشة:
6. بعد ذلك، انقر علىموافق، ثم في مربع الحوار التالي، اضغط مع الاستمرار على مفتاحCtrl لتحديد خلايا النص الأصلي والنص الجديد بشكل منفصل التي تريد استخدامها. انظر لقطة الشاشة:
7. بعد ذلك، انقر على زرموافق. الآن، تم العثور على النصوص واستبدالها بالنص الجديد في المستند المحدد، وتم فتح الملف أيضًا. يجب عليك حفظه للحفاظ على التغييرات.
البحث والاستبدال نصوص متعددة في مستندات Word متعددة من Excel باستخدام كود VBA
لقد أعددتُ أيضًا كود VBA لمساعدتك في البحث عن نصوص متعددة واستبدالها عبر مستندات Word مختلفة. اتبع الخطوات التالية:
1. افتح ملف Excel الذي يحتوي على عمودين: الأول بالقيم المراد استبدالها، والثاني بالقيم المراد الاستبدال بها، كما في لقطة الشاشة أدناه، ثم اضغط في آنٍ واحد على مفاتيحAlt + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. بعد ذلك، انقر علىإدراج>وحدة نمطية (Module)، ثم انسخ والصق كود VBA أدناه في النافذة.
كود 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. لا تزال في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر علىأدوات > المراجع. ثم في مربع حوارالمراجع – مشروع VBA، حدد الخيارينMicrosoft Word 16.0 Object Library وMicrosoft Scripting Runtime من مربع القائمة. انظر لقطة الشاشة:
4. بعد تحديد الخيارين، انقر علىموافقلإغلاق مربع الحوار، ثم اضغط على مفتاحF5 لتنفيذ هذا الكود. في نافذةالاستعراضالمفتوحة، اختر مجلدًا يحتوي على مستندات Word التي تريد تطبيق عملية البحث والاستبدال عليها. انظر لقطة الشاشة:
5. في مربع الحوار المنبثق بعد النقر على زرموافق، اضغط مع الاستمرار على مفتاحCtrl لتحديد عمودَيْ النص الأصلي والنص الجديد بشكل منفصل اللذين تريد استخدامهما. انظر لقطة الشاشة:
6. أخيرًا، انقر علىموافق، وسيتم استبدال النص الأصلي بالنصوص الجديدة عبر هذه الملفات. وبعد الانتهاء، سيظهر مربع حوار كما في لقطة الشاشة أدناه:
7. انقر علىموافقلإغلاق مربع الحوار، ثم انتقل إلى الملفات للتحقق من نتائج التحويل.
البحث والاستبدال نصوص متعددة في مستندات Word متعددة باستخدام ميزة قوية
في هذا القسم، سأوضح لك كيفية البحث عن نصوص واستبدالها جماعيًّا عبر مستندات Word متعددة باستخدام برنامج Word نفسه—وليس Excel. بفضل الميزة القويةKutools for Word، يمكنك البحث بكفاءة عن نصوص محددة واستبدالها بنصوص جديدة في الجسم الرئيسي، والترويسات، والتذييلات، والتعليقات، وغيرها، مع إمكانية تظليل النتائج عند الحاجة.
Kutools for Word
Kutools for Word يُمكّنك من إنجاز مهامك اليومية على المستندات بسرعة أكبر، بفضل أدواته العملية المدمجة مباشرةً في Microsoft Word—بدون الحاجة إلى برمجة أو إعدادات معقدة.
الكتابة بالذكاء الاصطناعي، والتنقيح، والترجمة، والتلخيص
1. افتح ملف Word واحد، ثم انقر علىKUTOOLS PLUS > البحث والاستبدال الجماعي. انظر لقطة الشاشة:
2. في مربع حوارالبحث والاستبدال الجماعيالمفتوح، قم بالإجراءات التالية:
انقر على زرإضافةلإضافة ملفات Word التي تريد فيها البحث والاستبدال النصوص؛
في الجزء الأيسر، انقر علىإضافة صفمن أعلى الشريط؛
في الحقل المُدخل، أدخل النص الأصلي في عمودبحثوالنص الجديد في عموداستبدالبشكل منفصل للنصوص التي تريد البحث عنها واستبدالها. كما يمكنك تحديد لون لتظليل النصوص المستبدَلة حسب حاجتك.
3. بعد إنشاء معايير البحث، انقر على زراستبدالللانتقال إلى علامة التبويبمعاينة النتائجلعرض نتائج البحث والاستبدال. انظر لقطة الشاشة:
4. بعد ذلك، انقر على زرإغلاق، وسيظهر مربع تنبيه لتذكيرك بما إذا كنت تريد حفظ هذا السيناريو. انقر علىنعملحفظه، أو انقر علىلالتجاهله. انظر لقطة الشاشة:
نصائح: يمكن لهذه الميزة أيضًا مساعدتك في تنفيذ العمليات التالية:
استبدال الأحرف الخاصة في مستندات Word متعددة؛
استبدال سلاسل نصية متعددة بتنسيق معيّن في مستندات Word متعددة؛
استبدال سلاسل نصية متعددة في ملفات TXT أو HTM أو HTML.
أنجز أكثر في وقت أقل مع Kutools for Word المعزّز بالذكاء الاصطناعي
Kutools for Word ليس مجرد مجموعة أدوات – بل هو حل ذكي صُمم خصيصًا لرفع إنتاجيتك. بفضل قدراته المدعومة بالذكاء الاصطناعي وأبرز ميزاته الأساسية، يمكّنك Kutools من إنجاز المزيد في وقت أقل.
لخّص، وأعد الصياغة، وصنّف، وترجم المحتوى فورًا.
راجع النصوص تلقائيًا أثناء الكتابة، مع اقتراحات لتحسين القواعد النحوية وعلامات الترقيم وأسلوب الكتابة.
أعد صياغة المحتوى وترجمه مع الحفاظ على التنسيق والأسلوب والهيكل دون أي تغيير.
ترجم محتواك بسهولة إلى أكثر من 40 لغة، ووسّع نطاق وصولك عالميًا.
احصل على مساعدة فورية ورؤى ذكية مستوحاة من محتوى المستند الحالي.
اسأل عن كيفية إنجاز مهمة – مثل إزالة فاصل المقطع – وسوف يوجّهك الذكاء الاصطناعي أو ينفّذها نيابةً عنك.
احذف المعلومات الحساسة أو السرية في ثوانٍ لضمان خصوصيتك التامة.
تعمل جميع الأدوات بسلاسة داخل Word، دائمًا في متناول يدك.
أنشئ مستنداتك، وحسّنها، وترجمها، ولخّصها، وامنحها الحماية — كل ذلك بسلاسة تامة.
حسّن القواعد النحوية، والوضوح، ونبرة الكتابة أثناء الكتابة بشكل فوري.
أعد صياغة وترجم المحتوى دون أي تغيير في التنسيق أو التصميم.
اسأل عن كيفية إنجاز مهمة – مثل إزالة فاصل المقطع – وسوف يوجّهك الذكاء الاصطناعي أو ينفّذها لك مباشرةً.
تعمل جميع الأدوات بسلاسة داخل Word، دائمًا في متناول يدك.
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل
