Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
سجلوا معنا  \/ 
x

or

كيفية البحث والاستبدال عبر ملفات متعددة في 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 ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jebidiah Springfield · 7 years ago
    Wow you are a saint for putting this macro together! I am listening to 'Epic Battle Music' on Songza because I am such an amatuer Macro-smith and it's the only way I can make it through the pain and agony of crafting programming spells.

    Anyway, my point I am going to make is a spent a lot of time on Friday troubleshooting the part where you actually put in the text you want to find and putting in the text you want to replace - I did not quite understand this part in terms of where I put my "find" word text and "replace" word text:

    [quote]Note:you can change the Text = "search”, Replacement.Text = "find” to specify the content to be searched and the content to be applied for replacement.
    [/quote]

    I read over this again today and I wish to respectfully clarify for other programming non-initiates - in the section of VBA where you have copied and pasted the original programming language, make sure you put an end ' after the [i]what [/i] and a ' after the [i]with[/i] (see example below) - in my example, I am looking for multiple documents to replace Pizza with Stromboli:

    .Text = "Pizza" 'Find What'
    .Replacement.Text = "Stromboli" 'Replace With'
  • To post as a guest, your comment is unpublished.
    James R · 7 years ago
    Could this VBA technique be adapted to work for Publisher files? For example by changing *.docx to *.pub ?
  • To post as a guest, your comment is unpublished.
    Patrick · 7 years ago
    When you run the macro, the "Open" window will open. Navigate to the folder that contains the files you need to make the change to, then click once on the first one, then, while holding down the "Ctrl" key, click on the other files also requiring the find/replace. If all files in the folder need the action, just press the "Ctrl" and "A" keys. Then click on "Open" or press the "Enter" key, and the macro will begin.

    I should warn you, as I've performed this dozens of times at work: The macro will result in the changes being made only to the *body* of the Word document; headers, footers, and title text/alt-text will be excluded. If you have text in the aforementioned portions that needs replacing, you will have to perform a standard find/replace across individual documents.
  • To post as a guest, your comment is unpublished.
    Alison Pepper · 7 years ago
    Yes I have the same question as i think this would be useful but want to tell it to only look in certain folders.
  • To post as a guest, your comment is unpublished.
    Bobette · 7 years ago
    Will it ask where the documents in question are located? Or do all the documents need to be open?
    • To post as a guest, your comment is unpublished.
      PatrickRsGhost · 6 years ago
      When you run it, by default it will open up the "Open File" dialogue window to "My Documents". Navigate to the folder that contains the Word files you wish to make the changes to. You can press "Ctrl" + "A" to select all files, or hold down the "Ctrl" key while selecting certain files. Click on "Open" or press "Enter" and watch the magic happen.