كيف يمكنك تغيير جميع أنماط «العنوان 1» إلى «العنوان 2» دفعة واحدة في مستند Word؟

عند العمل مع مستندات Word التي تحتوي على أنماط متنوعة مثل العنوان، والعنوان الفرعي، والعنوان 1، والعنوان 2، وأكثر من ذلك، قد تحتاج أحيانًا إلى إعادة تنظيم هيكل المستند لضمان الوضوح أو التناسق. على سبيل المثال، افترض أن مستندك يستخدم نمط «العنوان 1» لأقسام معينة، ولكن بعد مراجعة هيكل المستند، تدرك أن جميع عناوين هذه الأقسام يجب أن تستخدم في الواقع نمط «العنوان 2» بدلاً من ذلك. إن تغيير كل عنوان يدويًا قد يستغرق وقتًا طويلاً جدًّا، خاصةً في مستند طويل يحتوي على عشرات أو حتى مئات العناوين. يناقش هذا المقال عدة طرق عملية تساعدك على تغيير جميع حالات العنوان 1 إلى نمط العنوان 2 دفعة واحدة في Word بكفاءة.

تغيير جميع حالات العنوان 1 إلى العنوان 2 دفعة واحدة

رمز VBA - تحويل العنوان 1 إلى العنوان 2 بشكل جماعي عبر المستند

---

تغيير جميع حالات العنوان 1 إلى العنوان 2 دفعة واحدة

تستخدم الطريقة التالية لوحة الأنماط المدمجة في Word لتحويل جميع عناوين «العنوان 1» دفعة واحدة إلى «العنوان 2». وهي مثالية إذا كنت تفضّل أسلوبًا مرئيًا وتود مراجعة التغييرات أثناء تطبيقها.

1. ضع مؤشر الفأرة داخل أي فقرة منسَّقة بنمط العنوان 1 في مستندك لتنشيط النمط، ثم انتقل إلى علامة التبويبالصفحة الرئيسيةوانقر على مشغِّل مربع الحوار في مجموعةالأنماط. سيؤدي ذلك إلى فتح لوحة الأنماط، التي تعرض قائمة بجميع الأنماط المستخدمة حاليًا في المستند.

2. في لوحةالأنماطالتي تظهر على الجانب الأيمن، ابحث عن نمطالعنوان 1. انقر بزر الماوس الأيمن علىالعنوان 1، ثم اخترتحديد الكلمن القائمة التي تظهر. بعد ذلك، سيتم تحديد كل الفقرات المنسَّقة بنمط «العنوان 1» تلقائيًا في جميع أنحاء المستند—وهو إجراء مفيد جدًّا في الملفات الكبيرة لأنه يلغي الحاجة إلى البحث عن كل عنوان وتحديده يدويًا.

3. بعد تحديد كل نصوصالعنوان 1الآن، ما عليك سوى النقر علىالعنوان 2ضمن لوحةالأنماط. ستتغيّر أنماط جميع العناوين المحددة فورًا منالعنوان 1إلىالعنوان 2. لا يوفّر هذا الإجراء الجماعي الوقت فحسب، بل يحافظ أيضًا على تناسق التنسيق في جميع أنحاء مستندك.

نصائح واعتبارات:تأكد من أن أي نص تنوي تحويله مُنسَّق فعليًّا بنمط «العنوان 1» قبل البدء. أحيانًا، لن تؤثر هذه العملية على النص الذي تم تنسيقه يدويًّا (مثل جعله غامقًا وبحجم كبير دون تعيين نمط «العنوان 1» فعليًّا). إذا كان لديك عدد كبير من العناوين منسَّقة يدويًّا، ففكّر أولًا في تطبيق نمط «العنوان 1» لضمان تحويل سلس. كما يُنصح بمراجعة النتيجة بعد التحويل للتأكد من أن النص المطلوب فقط هو الذي تم تعديله. وإذا قمت بتحديد نص غير مقصود عن طريق الخطأ، يمكنك استخدام وظيفة التراجع ()Ctrl + Z) لإلغاء التغييرات وتكرار العملية مع التعديلات المناسبة.

هذه الطريقة سهلة الاستخدام ولا تتطلب مهارات تقنية متقدمة، مما يجعلها مثالية للمستخدمين العاديين الذين يديرون مستندات متوسطة الحجم.

---

رمز VBA - تحويل العنوان 1 إلى العنوان 2 بشكل جماعي عبر المستند

للمواقف الأكثر تقدمًا، مثل العمل مع مستندات كبيرة أو معقدة للغاية، يوفّر ماكرو VBA طريقة آلية وفعّالة لتغيير جميع الفقرات ذات نمط العنوان 1 إلى العنوان 2 دفعة واحدة. ويكون هذا الحل مفيدًا جدًّا إذا كنت بحاجة إلى تنفيذ هذه المهمة بشكل متكرر أو معالجة عدة مستندات بسرعة.

السيناريوهات المناسبة:فكّر في اعتماد هذا النهج عندما يحتوي مستندك على العديد من مستويات العناوين أو يكون طويلًا جدًّا لدرجة يصعب معها تحريره يدويًا، أو عندما تكون أقسام العنوان 1 موزَّعة في جميع أنحاء المستند وترغب في ضمان تغطية كاملة دون تفويت أي قسم. يتيح لك VBA تنفيذ التحويل بسرعة وبشكل برمجي، مما يقلل من خطر الوقوع في أخطاء بشرية.

القيود:قد يتطلب استخدام VBA تفعيل إعدادات أمان الماكرو في Word، وقد لا يكون تعديل الماكرو مباشرةً مناسبًا للمستخدمين غير المطلعين على البرمجة النصية. لذا، تأكد دائمًا من عمل نسخة احتياطية من مستندك قبل تشغيل الماكرو لتجنب فقدان البيانات عن طريق الخطأ.

1. افتح مستند Word الخاص بك. لا حاجة لتحديد أي نص قبل تشغيل الماكرو—سيتولى الماكرو معالجة المستند بأكمله.

2. اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications. في نافذة VBA، انقر علىإدراج > وحدةلإنشاء وحدة جديدة. بعد ذلك، انسخ والصق رمز VBA التالي في الوحدة.

رمز VBA: تغيير جميع فقرات العنوان 1 إلى العنوان 2 في المستند

Sub ChangeHeading1toHeading2()
    Dim para As Paragraph
    Dim countChanged As Long
    Dim xTitleId As String
    On Error Resume Next

    xTitleId = "Kutools for Word"
    countChanged = 0

    For Each para In ActiveDocument.Paragraphs
        ' Built-in style names include a space: "Heading 1"
        If para.Style = ActiveDocument.Styles("Heading 1") Then
            para.Style = ActiveDocument.Styles("Heading 2")
            countChanged = countChanged + 1
        End If
    Next para

    MsgBox countChanged & " Heading 1 paragraphs changed to Heading 2.", _
           vbInformation, xTitleId
End Sub

3. أغلق محرر VBA. لتشغيل الماكرو، عُد إلى نافذة Word، ثم اضغطAlt+F8 لفتح قائمة الماكرو، وحددChangeHeading1toHeading 2، ثم انقر علىتشغيل. سيبحث الماكرو تلقائيًا في المستند بأكمله ويُحدّث أي فقرة تستخدم نمط «العنوان 1» لتُصبح «العنوان 2». عند الانتهاء، سيعرض مربع حوار يوضح العدد الإجمالي للعناوين التي تم تغييرها.

نصائح:احفظ مستندك قبل تشغيل الماكرو، تحسبًا لرغبتك في التراجع عن الإجراء. ضع في اعتبارك أن الماكرو يُعدّل جميع الفقرات التي تستخدم **بالضبط** نمط «العنوان 1»— ولن تتأثر الأنماط المخصصة أو المعدّلة بأي شكل. إذا كنت تستخدم أسماء أنماط مخصصة، فتأكد من تحديث الرمز وفقًا لذلك. وفي حال واجهت خطأً أو لم يُجرَ أي تغيير، تحقق من أن عناوينك منسَّقة بشكل صحيح. ولحسن الحظ، يمكنك دائمًا التراجع عن تنفيذ الماكرو باستخدام Ctrl + Z إذا كانت النتيجة غير متوقعة.

يُعد نهج VBA هذا فعّالًا جدًّا في المعالجة الدفعية، ويوفّر فائدة كبيرة في مهام التنسيق الواسعة النطاق أو المتكررة.

---