إنشاء ماكرو Word لتحقق وتعليق الفقرات بخط عريض

في هذا المقال، سنقوم بتوضيح كيفية إنشاء ماكرو في Microsoft Word لفحص الفقرات المُخطِّطة بخط عريض وإضافة تعليقات لكل منها، مع استبعاد الخيار “Keep With Next”.

أولاً وقبل كل شيء، يجب أن نفهم أن تسجيل الماكرو لا يقدم دائماً الحلا الأمثل للمهام المعقدة. سنقوم بكتابة الكود يدويًا للتحكم الكامل في العملية.

للبداية، اتبع الخطوات التالية:

1. افتح ملف Word الخاص بك الذي يحتوي على النص الذي تريد فحصه.
2. انقر على علامة التبويب “تطوير” في شريط القوائم العلوي (إذا لم يكن لديك علامة تبويب “تطوير”، فانقر بزر الماوس الأيمن في أي مكان على شريط القوائم وحدد “تخصيص الشريط”، ثم قم بتحديد “تطوير”).
3. انقر على “عرض Visual Basic” للانتقال إلى محرر الفيجوال بيسك.

الآن، قم بكتابة الكود التالي:

vbaCopy code
Sub CheckBoldParagraphs()
    Dim para As Paragraph
    
    For Each para In ActiveDocument.Paragraphs
        If para.Range.Font.Bold = True And para.Format.KeepWithNext = False Then
            para.Comments.Add Range:=para.Range, Text:="Check Keep With Next"
        End If
    Next para
End Sub

هذا الكود يقوم بفحص كل فقرة في المستند، وإذا كانت الفقرة مُنسَّقة بخط عريض وليس لها خيار “Keep With Next”، سيتم إضافة تعليق إلى تلك الفقرة.

لتشغيل الكود، انقر على زر الرجوع في Word (على اليمين في شريط القوائم) ثم انقر فوق “تشغيل Sub/UserForm”. سترى ثم ترى التعليقات المضافة للفقرات المناسبة.

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

تفضل، سأوفر المزيد من التفاصيل حول الكود وكيف يعمل:

1. التفحص بالنسبة للخط العريض:
   يستخدم الكود خاصية Font.Bold للتحقق مما إذا كانت الفقرة تحتوي على نص بخط عريض أم لا. إذا كانت الشرط صحيحًا، يتم التحقق مما إذا كانت الفقرة مُنسَّقة بخيار “Keep With Next” أم لا.

2. إضافة التعليقات:
   في حالة تحقق الشرطين، يتم استخدام Comments.Add لإضافة تعليق جديد إلى الفقرة. يتم تمرير نطاق الفقرة والنص الذي يحتوي على التوجيهات، حيث يُضاف نص “Check Keep With Next” إلى التعليق.

3. التكرار عبر الفقرات:
   يتم استخدام حلقة For Each لتكرار عبر جميع الفقرات في المستند. هذا يضمن فحص جميع الفقرات وتنفيذ الإجراء الذي تم برمجته لكل فقرة ذات الخصائص المحددة.

4. تنفيذ الكود:
   يمكن تنفيذ هذا الكود من خلال فتح محرر Visual Basic for Applications (VBA) في Word ولصق الكود في النافذة المناسبة. يمكن تشغيل الكود من خلال الضغط على زر التشغيل.

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

بهذا الشكل، يمكنك الآن استخدام الكود لفحص الفقرات بخط عريض وإضافة تعليقات لتلك الفقرات التي تستوفي الشروط المحددة، مما يوفر لك وسيلة فعّالة لمعالجة المستندات بشكل ذكي وفقًا لاحتياجاتك الخاصة.