البحث والاستبدال النصوص في نص مستند Word ورؤوس الصفحات وتذييلاتها

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

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

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

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

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

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

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

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

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

إذا كنت ترغب في البحث والاستبدال فقط داخل رأس الصفحة وتذييلها في مستندٍ ما، فإن الطريقة الموضَّحة في هذا القسم ستساعدك.

1. افتح المستند الذي تريد البحث فيه عن النصوص واستبدالها في رأس الصفحة وتذييلها، ثم اضغط على مفاتيحAlt+F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.

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

ملاحظة:في الكود، يُرجى استبدال العبارتين "بحث عن نص رأس الصفحة« و»بحث عن نص تذييل الصفحة« بالنصوص التي تريد البحث عنها في رأس الصفحة وتذييلها، واستبدال العبارتين »لقد وجدت نص رأس الصفحة« و»لقد وجدت نص تذييل الصفحة" بنص رأس الصفحة الجديد ونص تذييل الصفحة الجديد.

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 AI: مساعد الذكاء الاصطناعي / مساعد الوقت الفعلي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

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

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

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

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

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

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

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

 

تنزيل مجاني     اشترِ الآن     معرفة المزيد

 

---

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

تنزيل مجاني     اشترِ الآن     معرفة المزيد

 

---

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

⬇️ تنزيل الآن🎁 اشترِ الحزمة الكاملة📖 معرفة المزيد

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

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

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools