كيفية البحث والاستبدال عبر ملفات متعددة في Word؟
إذا كان لديك عدة عشرات من ملفات الكلمات التي تحتوي على نفس المحتوى (مثل رأس الصفحة أو تذييلها أو بعض الكلمات الخاصة أو الأرقام) ، وتحتاج إلى استبدال نفس المحتوى عبر تلك المستندات في Word. كيف سيكون من الأسهل عليك القيام بذلك بسرعة؟ بالتأكيد ، يمكنك فتح هذه الملفات واحدة تلو الأخرى لاستبدال نفس المحتوى ، ولكن الأمر سيستغرق وقتًا طويلاً ومزعجًا. سيوضح لك هذا البرنامج التعليمي طريقة صعبة لاستبدال نفس المحتوى في مستندات متعددة في Word في وقت واحد.
ابحث عن النصوص واستبدلها عبر مستندات متعددة الكلمات في نفس الوقت باستخدام كود VBA
يمكنك العثور بسهولة على نصوص مختلفة واستبدالها عبر مستندات متعددة في نفس الوقت باستخدام Kutools for Word
ابحث عن النصوص واستبدلها عبر مستندات متعددة الكلمات في نفس الوقت باستخدام كود VBA
1. صحافة قديم + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ كود فبا التالي في نافذة الوحدة النمطية.
كود فبا: البحث عن نفس المحتوى واستبداله عبر مستندات متعددة في وقت واحد
Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
.Filters.Clear
.Filters.Add "All WORD File ", "*.docx", 1
.AllowMultiSelect = True
i = 1
If .Show = -1 Then
For Each stiSelectedItem In .SelectedItems
GetStr(i) = stiSelectedItem
i = i + 1
Next
i = i - 1
End If
Application.ScreenUpdating = False
xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
For j = 1 To i Step 1
Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
Windows(GetStr(j)).Activate
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = xFindStr 'Find What
.Replacement.Text = xReplaceStr 'Replace With
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Application.Run macroname:="NEWMACROS"
ActiveDocument.Save
ActiveWindow.Close
Next
Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود.
4. في الافتتاح تصفح النافذة ، من فضلك ابحث عن المستندات التي ستجدها واستبدلها بالداخل وحددها ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
5. في الأول كوتولس للكلمة في مربع الحوار ، أدخل النص الذي ستجده عبر المستندات في ملف تجد ما مربع ، ثم انقر فوق OK .
6. في الثانية كوتولس للكلمة في مربع الحوار ، أدخل النص الذي ستستبدل به ، وانقر فوق OK .
8. انقر فوق OK زر في اليوم التالي ميكروسوفت ورد مربع الحوار لإنهاء البحث والاستبدال.
في هذه الحالة ، يتم استبدال كل الكلمات "Word" في المستندات المحددة بكلمة "Excel" في نفس الوقت.
يمكنك العثور بسهولة على نصوص مختلفة واستبدالها عبر مستندات متعددة في نفس الوقت باستخدام Kutools for Word
هنا نوصي بشدة بحث واستبدال دفعة سمة من سمات كوتولس للكلمة. باستخدام هذه الميزة ، يمكنك بسهولة العثور على نصوص مختلفة واستبدالها عبر مستندات Word متعددة في نفس الوقت. دعونا نرى كيفية تطبيق هذه الميزة للبحث عن النصوص واستبدالها عبر المستندات.
كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة لـ Word ، حر في المحاولة دون قيود 60 أيام.
1. الرجاء الضغط كوتولس بلس > بحث واستبدال دفعة لتمكين الميزة.
2. في ال بحث واستبدال دفعة مربع الحوار ، يرجى تكوين على النحو التالي.
- شنومكس) انقر فوق إضافة صف زر تحت بحث واستبدال التبويب؛
- 2.2) في حقول الصف التي تم إنشاؤها:
ب. أدخل النص الذي ستستبدل به في مربع النص في ملف استبدل عمود؛
ج- حدد نوع البحث ومكان العثور على النص ولونًا لتمييز النص حسب حاجتك. في هذه الحالة ، أختار مطابقة الكلمات الكاملة, الوثيقة الرئيسية ولون معين من نوع البحث، تجد في و تسليط الضوء الأعمدة.
- 2.3) كرر الخطوتين 2.1 و 2.2 لإضافة المزيد من النصوص التي ستجدها وتستبدلها ؛
- شنومكس) انقر فوق
زر في نوع الملف قسم لإضافة مستندات Word حيث ستجد النصوص واستبدالها ؛
- شنومكس) انقر فوق استبدل or البحث زر. انظر لقطة الشاشة:
3. أقفل ال بحث واستبدال دفعة مربع الحوار
لمزيد من المعلومات حول هذه الميزة ، من فضلك انقر هنا....
إذا كنت تريد الحصول على نسخة تجريبية مجانية من هذه الأداة المساعدة ، فيرجى الانتقال إلى تنزيل البرنامج مجانًا اولا ثم انتقل لتطبيق العملية حسب الخطوات اعلاه.
أدوات إنتاجية Word الموصى بها
Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪
- يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
- أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
- دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
- قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
- قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...





















