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

كيفية البحث والاستبدال عبر ملفات متعددة في 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 البحث زر. انظر لقطة الشاشة:

ملحوظات:
1. إذا قمت بالنقر فوق البحث زر ، سيتم عرض جميع نتائج البحث تحت نتيجة المعاينة التبويب. بعد معاينة النتائج ، إذا كنت تريد استبدال جميع النصوص ، فالرجاء النقر فوق بحث واستبدال التبويب. خلاف ذلك ، أغلق مربع الحوار.

2. إذا قمت بالنقر فوق استبدل زر ، سيتم استبدال جميع النصوص المحددة بأخرى جديدة على الفور ، وسيتم أيضًا عرض النتائج تحت نتيجة المعاينة علامة التبويب.

3. إذا حددت ألوانًا مميزة في الخطوة 2 ، فسيتم تمييز جميع النصوص المستبدلة بألوان محددة ، ويمكنك العثور عليها بسهولة في لمحة في المستندات.

3. أقفل ال بحث واستبدال دفعة مربع الحوار

لمزيد من المعلومات حول هذه الميزة ، من فضلك انقر هنا....

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


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (69)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل سيسأل عن مكان وجود المستندات المعنية؟ أو هل يجب أن تكون جميع المستندات مفتوحة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عند تشغيله ، سيفتح افتراضيًا نافذة حوار "فتح ملف" على "المستندات". انتقل إلى المجلد الذي يحتوي على ملفات Word التي ترغب في إجراء التغييرات عليها. يمكنك الضغط على "Ctrl" + "A" لتحديد جميع الملفات ، أو الضغط باستمرار على مفتاح "Ctrl" أثناء تحديد ملفات معينة. انقر على "فتح" أو اضغط على "أدخل" وشاهد السحر يحدث.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم ، لدي نفس السؤال الذي أعتقد أنه سيكون مفيدًا ولكن أريد أن أخبره بالبحث فقط في مجلدات معينة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عند تشغيل الماكرو ، ستفتح نافذة "فتح". انتقل إلى المجلد الذي يحتوي على الملفات التي تريد إجراء التغيير عليها ، ثم انقر مرة واحدة على الملف الأول ، ثم أثناء الضغط باستمرار على مفتاح "Ctrl" ، انقر فوق الملفات الأخرى التي تتطلب أيضًا البحث / الاستبدال. إذا كانت جميع الملفات في المجلد بحاجة إلى الإجراء ، فما عليك سوى الضغط على مفتاحي "Ctrl" و "A". ثم انقر فوق "فتح" أو اضغط على مفتاح "أدخل" ، وسيبدأ الماكرو. يجب أن أحذرك ، لأنني أجريت هذا عشرات المرات في العمل: سينتج عن الماكرو التغييرات التي يتم إجراؤها فقط على * نص * مستند Word ؛ سيتم استبعاد الرؤوس والتذييلات ونص العنوان / النص البديل. إذا كان لديك نص في الأجزاء المذكورة أعلاه يحتاج إلى استبدال ، فسيتعين عليك إجراء بحث / استبدال قياسي عبر المستندات الفردية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن تكييف تقنية VBA هذه للعمل مع ملفات Publisher؟ على سبيل المثال عن طريق تغيير * .docx إلى * .pub؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يا إلهي ، أنت قديس لوضع هذا الماكرو معًا! أنا أستمع إلى "Epic Battle Music" على Songza لأنني مثل Macro-smith اللطيف وهذه هي الطريقة الوحيدة التي يمكنني بها التغلب على الألم والعذاب الناتج عن صياغة تعويذات البرمجة. على أي حال ، فإن وجهة نظري التي سأوضحها هي قضاء الكثير من الوقت يوم الجمعة في استكشاف الأخطاء وإصلاحها للجزء الذي وضعت فيه النص الذي تريد البحث عنه ووضع النص الذي تريد استبداله - لم أفهم تمامًا هذا الجزء مصطلحات حيث أضع نص الكلمة "بحث" و "استبدل" نص الكلمة: [اقتباس] ملاحظة: يمكنك تغيير النص = "بحث" ، استبدال النص = "بحث" لتحديد المحتوى المراد البحث عنه والمحتوى ليتم تطبيقها على الاستبدال. [/ quote] لقد قرأت هذا مرة أخرى اليوم وأود أن أوضح باحترام لغيرهم من البرمجة غير المبتدئين - في قسم VBA حيث قمت بنسخ ولصق لغة البرمجة الأصلية ، تأكد من وضع حد "بعد ماذا و "بعد مع (انظر المثال أدناه) - في المثال الخاص بي ، أبحث عن مستندات متعددة لاستبدال بيتزا بـ Stromboli: .Text = "Pizza" 'Find What' .Replacement.Text = "Stromboli" 'Replace With'
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أقوم بتشغيله ، يتم تعليقه ويتوقف عند: Application.Run macroname: = "NEWMACROS" وعندما أخطو إليه ، يخبرني أن لدي خطأ في الترجمة: الوسيطة المسماة غير موجودة. ماذا الآن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت مثل السحر وفرت الكثير من الوقت والجهد بالنسبة لي. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما زلت لا أستطيع تشغيل هذا على جهاز الكمبيوتر الذي يعمل بنظام Windows 7. عندما أقوم بتشغيله ، أحصل على رسالة خطأ في السطر: -Windows (GetStr (j)). قم بتنشيط رسالة الخطأ. هو: خطأ في التحويل البرمجي: - لم يتم تعريف الوظيفة الفرعية أو الوظيفة. أي فكرة لماذا؟ وكيفية اصلاحها؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا ما نجح معي أخيرًا. اتمني ان يكون مفيدا. أضفت هذا الماكرو إلى ملف Word. سيتم تشغيل استبدال أي مستندات محددة (يمكنك تحديد أي عدد تريده) عندما يكون مربع حوار الملف مفتوحًا. لن يعمل على المجلدات الفرعية ، لذلك قمت بعمل كل مجلد في بنية الملف على حدة لكنه نجح. قد لا يكون أفضل إصلاح ولكنه يعمل على الأقل. Private Sub CommandButton1_Click () Dim MyDialog كـ FileDialog ، GetStr (1 إلى 100) حيث أن String '100 files هي الحد الأقصى لتطبيق هذا الرمز عند Error Resume Next Set MyDialog = Application.FileDialog (msoFileDialogFilePicker) مع MyDialog .Filters.Clear' ~~> قم بتغيير امتداد الملف هذا إلى نوع المستند ذي الصلة. .Filters.Add "All WORD File"، "* .doc"، 1 .AllowMultiSelect = True i = 1 If .Show = -1 ثم لكل stiSelectedItem In .SelectedItems GetStr (i) = stiSelectedItem i = i + 1 Next i = i - 1 End If Application.ScreenUpdating = False For j = 1 To i Step 1 Set doc = Documents.Open (FileName: = GetStr (j)، Visible: = True) Windows (GetStr (j)). تنشيط التحديد. Find.ClearFormatting Selection.Find.Replacement.ClearFormatting 'القسم ثم إما قسم واحد أو آخر من أقسام الكود يجب اتباعه
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك بعد ذلك إضافة أحد القسمين التاليين اعتمادًا على ما إذا كان اختبارًا أم ارتباط تشعبي ليتم استبداله '~~> هذا القسم إذا لم يتم التعليق عليه سيحل محل النص - لا يمكن إلحاق سوى قسم واحد فقط من قسمين بمجرد التحديد. Find .Text = " http://www.google.co.uk "'Find What .Replacement.Text =" http://www.google.com "' استبدل بـ .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 Active = True End With MsgBox "نهاية العملية ، يرجى عرض" ، vbInformation '~~> هذا القسم إذا لم يتم التعليق عليه سيحل محل الارتباطات التشعبية' For i = 1 To doc.Hyperlinks.Count '' إذا تطابق الارتباط التشعبي. 'If LCase (doc.Hyperlinks (i) .Address) = "http://www.google.co.uk/" ثم "غيّر عنوان الروابط. 'doc.Hyperlinks (i) .Address = "https://www.google.com" "" قم بتغيير نص عرض الروابط إذا رغبت في ذلك. 'doc.Hyperlinks (i) .TextToDisplay = "http://www.google.com"' End If 'Next' Application.Run macroname: = "NEWMACROS" 'ActiveDocument.Save' ActiveDocument.Close 'Next' Application.ScreenUpdating = صحيح 'End With' MsgBox "نهاية العملية ، يرجى عرض" ، vbInformation End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بيا ، أحاول تشغيل البرنامج النصي لاستبدال الارتباطات التشعبية ولكني أحصل على أخطاء. هل هناك فرصة لنشر النص لاستبدال الارتباطات التشعبية كلها في قطعة واحدة؟ لابد أنني أفسد شيئًا ما عند محاولة تصحيح التعليمات البرمجية معًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يتم تشغيله فقط عبر الملفات المحددة ويجب أن تكون الملفات في مجلد واحد فقط. يتم تشغيل هذا كماكرو في مستند Word. يتم تشغيله من النقر فوق الزر. إنه يقوم فقط بتحديث Word doc's Hope وهذا يساعد. Private Sub CommandButton1_Click () Dim MyDialog كـ FileDialog ، GetStr (1 إلى 100) حيث أن String '100 files هي الحد الأقصى لتطبيق هذا الرمز عند Error Resume Next Set MyDialog = Application.FileDialog (msoFileDialogFilePicker) مع MyDialog .Filters.Clear' ~~> قم بتغيير امتداد الملف هذا إلى نوع المستند ذي الصلة. .Filters.Add "All WORD File"، "* .doc"، 1 .AllowMultiSelect = True i = 1 If .Show = -1 ثم لكل stiSelectedItem In .SelectedItems GetStr (i) = stiSelectedItem i = i + 1 Next i = i - 1 End If Application.ScreenUpdating = False For j = 1 To i Step 1 Set doc = Documents.Open (FileName: = GetStr (j)، Visible: = True) Windows (GetStr (j)). تنشيط التحديد. Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For i = 1 To doc.Hyperlinks.Count 'إذا تطابق الارتباط التشعبي. If LCase (doc.Hyperlinks (i) .Address) = "http://www.yahoo.co.uk/" ثم "قم بتغيير عنوان الروابط. doc.Hyperlinks (i) .Address = "https://www.google.co.uk" "قم بتغيير نص عرض الروابط إذا رغبت في ذلك. doc.Hyperlinks (i) .TextToDisplay = "http://www.google.co.uk" End If Next Application.Run macroname: = "NEWMACROS" ActiveDocument.Save ActiveDocument.Close Next Application.ScreenUpdating = True End With MsgBox " نهاية العملية ، يرجى الاطلاع على "، vbInformation End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد نجح هذا بشكل مثالي ووفر لي الكثير من الوقت. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد نجح هذا بشكل رائع بالنسبة للكلمة الموجودة في نص المستند ولكنه لم يحل محل نفس الكلمة في رأس المستند. أيه أفكار. شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد تغيير تنسيق النص الذي يستبدل. على سبيل المثال ، يجب استبدال "بيتزا" بـ "برغر". كيف يمكن تحقيق ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كبير THX 4 الشفرة ... ولكن أيضًا لديك هذا prblm مع الرؤوس ... لا تغيير شكرًا مقدمًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لنشر هذه! لقد أجريت اختبارين وجعلته يعمل من أجلي ؛ ومع ذلك ، فهو لا يعمل على النص في الرؤوس والتذييلات لسبب ما. هل هناك إصلاح لهذه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا آسف ولكن ليس لدي أي فكرة عن الرؤوس أو التنسيق. لم يكن شيئًا أحتاج إلى إدراجه في الكود الخاص بي. لم أستخدم هذا من قبل مطلقًا ، وتم أخذ الكود الذي نشرته من الكود الأصلي أعلاه ، ثم استخدم رمزًا تم العثور عليه في عمليات بحث أخرى حتى نجح. أنا آسف لأنني لا أستطيع تقديم المزيد من المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد قمت باختباره خلال الدقائق القليلة الماضية وهو أمر رائع حقًا ، شكرًا لك! أحتاج إلى تنفيذ العديد من إجراءات "البحث والاستبدال" لعدة ملفات. العشرات من الإجراءات لعشرات الملفات. هل توجد طريقة "لحفظ" الوحدة بحيث لا أحتاج إلى لصقها مرة أخرى على شاشة VBA في كل مرة أحتاج فيها إلى تنفيذ إجراء جديد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن تعديل هذا الماكرو لأداء عدة مواقف "بحث واستبدال" في وقت واحد؟ هناك العديد من الكلمات والفاريسات التي أحتاج إلى استبدالها وحتى الآن أحتاج إلى إعادة إدخال رمز VBA لكل مثيل. أنا مستجد فيما يتعلق بهذه الأشياء
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد وفر هذا الرمز الكثير من الوقت بالنسبة لي ... لذا ، شكرًا! شيء واحد بالرغم من ذلك - هل هناك أي طريقة لزيادة عدد الكلمات التي يعثر عليها الماكرو / يستبدلها؟ أحتاج إلى البحث عن فقرات متعددة / استبدالها مرة واحدة ويبدو أن الماكرو يحتوي على حد يبلغ 200 حرف تقريبًا.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة