Sub CreateActionResearchPresentation()
    Dim pptPres As Presentation
    Dim pptSlide As Slide
    Dim pptLayout As CustomLayout
    Dim titlePlaceholder As Shape
    Dim contentPlaceholder As Shape
    
    ' إنشاء عرض تقديمي جديد
    Set pptPres = Application.Presentations.Add

    ' --- الشريحة 1: الافتتاحية ---
    Set pptSlide = pptPres.Slides.Add(1, ppLayoutTitle)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "البحث الإجرائي (Action Research)"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "المفاهيم، الخطوات، ومعايير إعداد خطة البحث" & vbCrLf & _
                                                  "إعداد: جامعة أسيوط - كلية التربية" & vbCrLf & _
                                                  "الفئة المستهدفة: طلاب الدبلوم العامة" & vbCrLf & "العام الجامعي: 2025-2026"

    ' --- الشريحة 2: الأهداف ---
    Set pptSlide = pptPres.Slides.Add(2, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "ماذا سنتعلم في هذا العرض؟"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "1. الموقع: أين يقع البحث الإجرائي ضمن البحوث التربوية؟" & vbCrLf & _
                                                  "2. الخطوات: الإجراءات العملية لتنفيذ البحث." & vbCrLf & _
                                                  "3. المعايير: الضوابط اللازمة لبحوث الفعل." & vbCrLf & _
                                                  "4. التطبيق: إعداد خطة بحث علمية وفق معايير الجودة."

    ' --- الشريحة 3: تصنيف البحوث (الهدف) ---
    Set pptSlide = pptPres.Slides.Add(3, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "تصنيف البحوث التربوية (من حيث الهدف)"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "1. البحوث الأساسية (النظرية): تهدف لبناء النظريات وتوسيع المعرفة." & vbCrLf & _
                                                  "2. البحوث التطبيقية: تهدف لحل مشكلات علمية بتطبيق النظريات." & vbCrLf & _
                                                  "3. البحوث الإجرائية (بحوث الفعل): تهدف لحل مشكلة 'موقفية' فورية في بيئة العمل دون تعميم." & vbCrLf & vbCrLf & _
                                                  "مقارنة مبسطة:" & vbCrLf & _
                                                  "- الأساسي: أريد أن أفهم." & vbCrLf & _
                                                  "- التطبيقي: أريد تطبيق نظرية." & vbCrLf & _
                                                  "- الإجرائي: أريد حل مشكلة في فصلي الآن."

    ' --- الشريحة 4: تصنيف البحوث (المنهج) ---
    Set pptSlide = pptPres.Slides.Add(4, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "تصنيف البحوث التربوية (من حيث المنهج)"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "1. البحوث الوثائقية (مصادر مكتوبة):" & vbCrLf & _
                                                  "   - المنهج التاريخي، الإحصائي، تحليل المضمون." & vbCrLf & _
                                                  "2. البحوث الميدانية (جمع مباشر):" & vbCrLf & _
                                                  "   - المسحي، دراسة الحالة (أدوات: استبيان، مقابلة)." & vbCrLf & _
                                                  "3. البحوث التجريبية:" & vbCrLf & _
                                                  "   - تتم في بيئات مضبوطة لقياس أثر المتغيرات."

    ' --- الشريحة 5: تصنيف البحوث (جهة التنفيذ) ---
    Set pptSlide = pptPres.Slides.Add(5, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "تصنيف البحوث التربوية (من حيث جهة التنفيذ)"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "أولاً: البحوث الأكاديمية:" & vbCrLf & _
                                                  "- بحوث جامعية أولية." & vbCrLf & _
                                                  "- رسائل الماجستير والدكتوراه." & vbCrLf & _
                                                  "- بحوث الترقية للأساتذة." & vbCrLf & vbCrLf & _
                                                  "ثانياً: البحوث غير الأكاديمية:" & vbCrLf & _
                                                  "- تنفذها مؤسسات لتطوير أعمالها."

    ' --- الشريحة 6: تعريف البحث الإجرائي ---
    Set pptSlide = pptPres.Slides.Add(6, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "ما هو البحث الإجرائي (الموقفي)؟"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "التعريف: بحث عملي يركز على حل مشكلة وظيفية محددة." & vbCrLf & _
                                                  "الخصائص:" & vbCrLf & _
                                                  "- المرونة: لا يلتزم بصرامة المنهج العلمي التقليدي." & vbCrLf & _
                                                  "- القائم به: المعلم أو المدير (الممارس)." & vbCrLf & _
                                                  "- الهدف: تحسين الممارسات وحل المشكلات." & vbCrLf & _
                                                  "- العينة: صغيرة ومحددة."

    ' --- الشريحة 7: خطوات البحث ---
    Set pptSlide = pptPres.Slides.Add(7, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "خطوات البحث الإجرائي (دورة العمل)"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "1. تحديد المشكلة وتطوير الأسئلة." & vbCrLf & _
                                                  "2. صياغة الفروض." & vbCrLf & _
                                                  "3. جمع المعلومات." & vbCrLf & _
                                                  "4. تفسير وتحليل المعلومات." & vbCrLf & _
                                                  "5. اتخاذ الإجراء (الفعل)." & vbCrLf & _
                                                  "6. تفسير النتائج." & vbCrLf & _
                                                  "7. التوصيات."

    ' --- الشريحة 8: تحديد المشكلة ---
    Set pptSlide = pptPres.Slides.Add(8, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "1. تحديد المشكلة والأسئلة البحثية"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "المشكلة: تساؤل غامض يحتاج لتفسير يهدف لتحسين التعلم." & vbCrLf & vbCrLf & _
                                                  "معايير السؤال الجيد:" & vbCrLf & _
                                                  "- لا يجاب عليه بـ (نعم/لا)." & vbCrLf & _
                                                  "- لغة مفهومة وموجزة." & vbCrLf & _
                                                  "- له هدف وليس له إجابة جاهزة."

    ' --- الشريحة 9: مصادر المشكلة ---
    Set pptSlide = pptPres.Slides.Add(9, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "من أين نأتي بمشكلة البحث؟"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "1. محيط العمل والخبرة الشخصية." & vbCrLf & _
                                                  "2. القراءات الناقدة (كتب، دوريات)." & vbCrLf & _
                                                  "3. التكليف الرسمي من جهة العمل." & vbCrLf & _
                                                  "4. الدراسات والبحوث السابقة (مصدر أساسي)."

    ' --- الشريحة 10: الدراسات السابقة ---
    Set pptSlide = pptPres.Slides.Add(10, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "أهمية الدراسات السابقة"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- توسيع المعرفة وتكوين خلفية دقيقة." & vbCrLf & _
                                                  "- ضمان عدم تكرار البحث (التميز)." & vbCrLf & _
                                                  "- المساعدة في بلورة المشكلة وصياغة الفروض." & vbCrLf & _
                                                  "- تجنب أخطاء الباحثين السابقين."

    ' --- الشريحة 11: اختيار المشكلة ---
    Set pptSlide = pptPres.Slides.Add(11, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "معايير اختيار مشكلة البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- اهتمام الباحث ورغبته الشخصية." & vbCrLf & _
                                                  "- تناسبها مع قدرات الباحث." & vbCrLf & _
                                                  "- توفر البيانات والمعلومات." & vbCrLf & _
                                                  "- القيمة العلمية والاجتماعية." & vbCrLf & _
                                                  "- الحداثة والجدة."

    ' --- الشريحة 12: الفروض ---
    Set pptSlide = pptPres.Slides.Add(12, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "2. صياغة الفروض البحثية"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "الفرض: تخمين ذكي أو حل مؤقت للمشكلة." & vbCrLf & vbCrLf & _
                                                  "المتغيرات:" & vbCrLf & _
                                                  "1. المتغير المستقل: السبب/المؤثر (مثال: استخدام التكنولوجيا)." & vbCrLf & _
                                                  "2. المتغير التابع: النتيجة (مثال: التحصيل الدراسي)."

    ' --- الشريحة 13: أنواع الفروض ---
    Set pptSlide = pptPres.Slides.Add(13, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "أنواع الفروض والمتغيرات"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "أنواع المتغيرات: مستقل، تابع، وسيط (خصائص العينة)، خارجي (بيئة)." & vbCrLf & vbCrLf & _
                                                  "أنواع الفروض:" & vbCrLf & _
                                                  "- فرض مباشر: يثبت علاقة (توجد علاقة...)." & vbCrLf & _
                                                  "- فرض صفري: ينفي علاقة (لا توجد علاقة...)."

    ' --- الشريحة 14: جمع المعلومات ---
    Set pptSlide = pptPres.Slides.Add(14, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "3. جمع المعلومات والأدوات"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "يجب استخدام 3 مصادر على الأقل للدقة." & vbCrLf & _
                                                  "الأدوات:" & vbCrLf & _
                                                  "- المقابلات والاستبانات." & vbCrLf & _
                                                  "- الملاحظة واليوميات." & vbCrLf & _
                                                  "- ملفات الإنجاز والسجلات." & vbCrLf & _
                                                  "- التسجيلات (صوت/فيديو)."

    ' --- الشريحة 15: التحليل ---
    Set pptSlide = pptPres.Slides.Add(15, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "4. تحليل وتفسير المعلومات"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- تحليل نقدي: للبيانات النوعية (آراء، ملاحظات)." & vbCrLf & _
                                                  "- تحليل إحصائي: للبيانات الرقمية (نسب مئوية)." & vbCrLf & _
                                                  "الهدف: استخلاص الأفكار الرئيسية وتفسيرها."

    ' --- الشريحة 16: الإجراء والنتائج ---
    Set pptSlide = pptPres.Slides.Add(16, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "الإجراء، النتائج، والتوصيات"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "5. اتخاذ الإجراء: تنفيذ خطة الفعل (معالجة متغير واحد)." & vbCrLf & _
                                                  "6. تفسير النتائج: هل حدث تحسن؟ ما الدليل؟" & vbCrLf & _
                                                  "7. التوصيات: طرح أسئلة جديدة لدورة بحثية قادمة."

    ' --- الشريحة 17: المعايير العامة ---
    Set pptSlide = pptPres.Slides.Add(17, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "معايير هامة عند إجراء البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- عدم التعارض مع وقت التدريس." & vbCrLf & _
                                                  "- الواقعية (مشكلة قابلة للحل)." & vbCrLf & _
                                                  "- الالتزام بالأخلاقيات." & vbCrLf & _
                                                  "- نشر النتائج للمجتمع المدرسي."

    ' --- الشريحة 18: خطة البحث ---
    Set pptSlide = pptPres.Slides.Add(18, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "القسم الثاني: عناصر خطة البحث (مشروع التخرج)"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "1. العنوان." & vbCrLf & "2. المقدمة." & vbCrLf & "3. المشكلة." & vbCrLf & _
                                                  "4. الأهمية." & vbCrLf & "5. الأهداف." & vbCrLf & "6. الفروض." & vbCrLf & _
                                                  "7. الحدود." & vbCrLf & "8. المصطلحات." & vbCrLf & "9. الإطار النظري." & vbCrLf & "10. الإجراءات."

    ' --- الشريحة 19: العنوان ---
    Set pptSlide = pptPres.Slides.Add(19, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "1. عنوان البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "معايير العنوان الجيد:" & vbCrLf & _
                                                  "- يحدد ميدان المشكلة بدقة." & vbCrLf & _
                                                  "- واضح وموجز." & vbCrLf & _
                                                  "- خالي من العبارات المضللة." & vbCrLf & _
                                                  "- يتضمن المتغيرات الأساسية."

    ' --- الشريحة 20: المقدمة ---
    Set pptSlide = pptPres.Slides.Add(20, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "2. مقدمة البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- الانتقال من العام إلى الخاص." & vbCrLf & _
                                                  "- توضيح أهمية البحث ومبرراته." & vbCrLf & _
                                                  "- إبراز المفاهيم الأساسية." & vbCrLf & _
                                                  "- إظهار اطلاع الباحث."

    ' --- الشريحة 21: المشكلة ---
    Set pptSlide = pptPres.Slides.Add(21, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "3. مشكلة البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- تتسم بالأصالة والواقعية." & vbCrLf & _
                                                  "- قابلة للبحث والقياس." & vbCrLf & _
                                                  "- واضحة ولا تسبب حساسية." & vbCrLf & _
                                                  "- تصاغ في شكل تقريري أو سؤالي."

    ' --- الشريحة 22: الأهمية ---
    Set pptSlide = pptPres.Slides.Add(22, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "4. أهمية البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- الفوائد العلمية (النظرية) والتطبيقية." & vbCrLf & _
                                                  "- تحديد المستفيدين (طلاب، معلمين)." & vbCrLf & _
                                                  "- بيان ندرة الدراسات (إن وجدت)."

    ' --- الشريحة 23: الأهداف ---
    Set pptSlide = pptPres.Slides.Add(23, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "5. أهداف البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- ما يريد الباحث تحقيقه." & vbCrLf & _
                                                  "- محددة بدقة ووضوح." & vbCrLf & _
                                                  "- قابلة للقياس والتطبيق."

    ' --- الشريحة 24: الفرضيات ---
    Set pptSlide = pptPres.Slides.Add(24, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "6. فرضيات البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "شروط الفرضية الجيدة:" & vbCrLf & _
                                                  "- منسجمة مع الحقائق العلمية." & vbCrLf & _
                                                  "- قابلة للاختبار." & vbCrLf & _
                                                  "- موجزة وواضحة." & vbCrLf & _
                                                  "- بعيدة عن التحيز."

    ' --- الشريحة 25: الحدود ---
    Set pptSlide = pptPres.Slides.Add(25, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "7. حدود البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "أنواع الحدود:" & vbCrLf & _
                                                  "- بشرية (العينة)." & vbCrLf & _
                                                  "- مكانية (مكان التطبيق)." & vbCrLf & _
                                                  "- زمانية (وقت التطبيق)." & vbCrLf & _
                                                  "- موضوعية (المتغيرات المدروسة)."

    ' --- الشريحة 26: المصطلحات ---
    Set pptSlide = pptPres.Slides.Add(26, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "8. مصطلحات البحث"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "- تعريف المفاهيم لإزالة الغموض." & vbCrLf & _
                                                  "- الوصول لتعريف إجرائي خاص بالبحث." & vbCrLf & _
                                                  "- توحيد الفهم بين الباحث والقارئ."

    ' --- الشريحة 27: الإجراءات ---
    Set pptSlide = pptPres.Slides.Add(27, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "9. & 10. الإطار النظري والإجراءات"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "الإطار النظري: الأسس والأدبيات السابقة." & vbCrLf & vbCrLf & _
                                                  "الإجراءات العملية:" & vbCrLf & _
                                                  "- المنهج المستخدم." & vbCrLf & _
                                                  "- الأدوات وصدقها وثباتها." & vbCrLf & _
                                                  "- التطبيق والمعالجة الإحصائية."

    ' --- الشريحة 28: الخاتمة ---
    Set pptSlide = pptPres.Slides.Add(28, ppLayoutText)
    pptSlide.Shapes(1).TextFrame.TextRange.Text = "الخاتمة والملخص"
    pptSlide.Shapes(2).TextFrame.TextRange.Text = "1. البحث الإجرائي أداة تطوير للمعلم." & vbCrLf & _
                                                  "2. يبدأ بمشكلة وينتهي بفعل وتوصيات." & vbCrLf & _
                                                  "3. خطة البحث تتطلب الدقة في جميع عناصرها." & vbCrLf & _
                                                  "4. الالتزام بالمعايير الأخلاقية أساس النجاح."

    MsgBox "تم إنشاء الشرائح بنجاح!", vbInformation
End Sub