البحث عن النصوص واستبدالها في جسم مستند Word، الرأس والتذييل

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

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

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

من السهل استخدام ميزة البحث والاستبدال في مستند Word.

1. افتح المستند الذي يحتوي على الكلمات التي تريد استبدالها، واضغط على مفتاحي Ctrl + H في نفس الوقت لفتح مربع الحوار البحث والاستبدال.

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

ملاحظة: يمكنك النقر على زر المزيد للعثور على المزيد من خيارات البحث حسب الحاجة.

3. بعد ذلك، سيظهر مربع حوار لإعلامك بعدد الاستبدالات التي تم إجراؤها. انقر على موافق لإنهاء العملية.

البحث عن النص واستبداله نفسه فقط في قسم الرأس والتذييل باستخدام كود VBA

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

1. افتح المستند الذي ستبحث فيه عن النص وتستبدله في الرأس والتذييل، واضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر على إدراج > وحدة، ثم انسخ الكود التالي VBA إلى نافذة الوحدة.

كود VBA: البحث عن النص واستبداله فقط في الرأس والتذييل

Sub FindAndReplaceOfHeaderAndFooter()
'Update by Extendoffice 20190805
    Dim xDoc As Document
    Dim xSelection As Selection
    Dim xSec As Section
    Dim xHeader As HeaderFooter
Dim xFooter As HeaderFooter
On Error Resume Next
    Set xDoc = Application.ActiveDocument
    For Each xSec In xDoc.Sections
        For Each xHeader In xSec.Headers
            xHeader.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found header text" 'Enter the old header text here!
               .Replacement.Text = "I've found header text" 'Enter the new header text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xHeader
        For Each xFooter In xSec.Footers
            xFooter.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found footer text" 'Enter the old footer text here!
                .Replacement.Text = "I've found footer text" 'Enter the old footer text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xFooter
    Next xSec
    xDoc.ActiveWindow.ActivePane.Close
    If xDoc.ActiveWindow.View.SplitSpecial = wdPaneNone Then
        xDoc.ActiveWindow.View.Type = wdPrintView
    Else
        xDoc.ActiveWindow.View.Type = wdPrintView
    End If
    xDoc.Activate
End Sub

ملاحظة: في الكود، يرجى استبدال “Find header text” و “Find footer text” بالنصوص التي تريد البحث عنها في الرأس والتذييل؛ واستبدل “I’ve found header text” و “I’ve found footer text” بالنصوص الجديدة للرأس والتذييل.

3. اضغط على مفتاح F5 لتشغيل الكود. بعد ذلك سيتم استبدال النصوص المحددة في الرأس والتذييل بالنصوص الجديدة.

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

1. قم بتشغيل تطبيق Microsoft Word، انقر على Kutools Plus > البحث والاستبدال الجماعي.

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

• 2.1 انقر على الزر > إضافة ملف أو إضافة مجلد لإضافة المستندات التي تحتاج إلى البحث فيها عن النصوص واستبدالها داخلها.
  
• 2.2 انقر على زر إضافة صف لإدراج حقول البحث والاستبدال. إذا كنت تريد البحث عن ثلاثة نصوص مختلفة واستبدالها في نفس الوقت، يرجى إنشاء ثلاثة صفوف.
• 2.3 في كل صف، أدخل النصوص الموجودة التي تريد استبدالها بنص جديد في عمود البحث، ثم أدخل النص الجديد في عمود الاستبدال.
• 2.4 حدد نوع البحث لكل صف.
• 2.5 في عمود البحث في، اختر مكان تطبيق البحث والاستبدال. يتضمن هذا القسم المستند الرئيسي، الرأس والتذييل. يمكنك اختيار واحد منها، اثنين منها أو جميعها بناءً على احتياجاتك.
• 2.6. انقر على زر الاستبدال لبدء العملية. انظر إلى لقطة الشاشة:

بعد ذلك يتم استبدال جميع النصوص المحددة عبر المستندات المختارة.

تلميح: يمكنك تمييز النتيجة بلون خلفية عن طريق تحديد لون معين في عمود التمييز لصف معين.

مقالات ذات صلة

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

Kutools for Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة مذهلة!

🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (الحفاظ على التنسيق) / ترجمة فائقة (الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...

✏ تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...

🧹 تنظيف سهل: أزل المسافات الزائدة / فواصل الأقسام / مربعات النص / الروابط التشعبية / لمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...

➕ إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...

🔍 تحديدات دقيقة: تحديد الصفحات المحددة / الجداول / الأشكال / فقرات العناوين / عزز التنقل مع المزيد من ميزات التحديد ...

⭐ تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند /11 أداة تحويل...

🌍 يدعم أكثر من40 لغة: استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية وأكثر من40 لغة أخرى!

👉 ترغب في تجربة هذه الميزات؟ نزّل Kutools for Word الآن! 🚀

تنزيل مجاني     اشترِ الآن     تعرف أكثر على Kutools for Word

 

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

Kutools for Word - 100+ أداة لـ Word

• 🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق / ترجمة فائقة / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي
• 📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تحويل جماعي إلى PDF
• ✏ تحرير المحتوى: البحث والاستبدال الجماعي / تغيير حجم جميع الصور
• 🧹 تنظيف سهل: إزالة المسافات الزائدة / إزالة فواصل الأقسام
• ➕ إدراجات إبداعية: إدراج فواصل الآلاف / إدراج مربعات اختيار / إنشاء رموز QR
• 🌍 يدعم أكثر من40 لغة: Kutools يتحدث لغتك – أكثر من40 لغة متوفرة!

تنزيل مجاني اشترِ الآن تعرف أكثر على Kutools