KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف تُنشئ قائمة ديناميكية في مستند Word؟

المؤلفSiluviaتاريخ التعديل
مثال يوضح تحديد خيارات القائمة المنسدلة الثانية بناءً على الخيار المحدد في القائمة المنسدلة الأولى

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

إنشاء قائمة ديناميكية في Word باستخدام كود VBA

إنشاء قائمة ديناميكية في Word باستخدام كود VBA

تتيح لك طريقة VBA أدناه إنشاء قائمة ديناميكية تتغيّر القائمة الثانية فيها تلقائيًا وفقًا للاختيار المحدَّد في القائمة الأولى. اتبع الخطوات التالية:

  1. تأكد من ظهور علامة التبويب «المطور» في شريط Word الخاص بك (إذا لم تكن ظاهرة، راجع البرنامج التعليمي)كيفية إظهار علامة تبويب المطور في Word؟). بعد ذلك، أدرج حقلَي قائمة منسدلة بالنقر على «المطور» > «نماذج قديمة» > «حقل نموذج منسدل» مرتين.
    علامة التبويب "المطور" مع تحديد "نماذج قديمة" وتمييز حقل النموذج المنسدل
  2. انقر بزر الماوس الأيمن على القائمة المنسدلة الأولى (وهي القائمة الرئيسية)، ثم اختر «خصائص».
    القائمة المنسدلة الأولى بعد النقر عليها بزر الماوس الأيمن مع تحديد خيار الخصائص
  3. في مربع حوار «خيارات حقل النموذج المنسدل»:
    1. أدخل الفئات (مثل: «فواكه»، «خضروات»، «لحوم») في مربع «عنصر القائمة المنسدلة» واحدة تلو الأخرى، ثم اضغط على «إضافة» بعد كل إدخال.
    2. اكتب "ddfood« في مربع »الإشارة المرجعية".
    3. انقر على «موافق».
      مربع حوار خيارات حقل النموذج المنسدل
  4. انقر بزر الماوس الأيمن على قائمة منسدلة الثاني، واختر «خصائص»، واكتب "ddCategory« في مربع »الإشارة المرجعية«، ثم انقر على »موافق".
    مربع حوار خيارات حقل النموذج المنسدل
  5. اضغط علىAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
  6. في نافذة VBA، انقر على «إدراج» > «وحدة برمجية»، ثم الصق الكود التالي:
    Sub Populateddfood()
'Update by Extendoffice 2018/10/25
    Dim xDirection As FormField
    Dim xState As FormField
    On Error Resume Next
    Set xDirection = ActiveDocument.FormFields("ddfood")
    Set xState = ActiveDocument.FormFields("ddCategory")
    If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
    With xState.DropDown.ListEntries
        .Clear
        Select Case xDirection.Result
            Case "Fruit"
                .Add "Apple"
                .Add "Banana"
                .Add "Peach"
                .Add "Lychee"
                .Add "Watermelon"
            Case "Vegetable"
                .Add "Cabbage"
                .Add "Onion"
            Case "Meat"
                .Add "Pork"
                .Add "Beef"
                .Add "Mutton"
        End Select
    End With
End Sub

    ملاحظات:

    • في الكود، غيّر العناصر الموجودة تحت كل عبارة "Case" لتناسب محتواك.
    • يجب أن يتطابق "ddfood« و»ddCategory« مع اسم الإشارة المرجعية الذي أدخلته في مربعات حوار »خيارات حقل النموذج المنسدل".
  7. احفظ الكود، ثم ارجع إلى مستندك.
  8. انقر بزر الماوس الأيمن على القائمة المنسدلة مرةً أخرى، ثم اختر «خصائص». في مربع حوار «خيارات حقل النموذج المنسدل» الذي يظهر، اختر اسم الماكرو "Populateddfood« من القائمة المنسدلة »خروج«، ثم انقر »موافق".
    مربع حوار خيارات حقل النموذج المنسدل
  9. انقر على «المطور» > «تقييد التعديل».
    زر تقييد التحرير في علامة التبويب "المطور" على الشريط
  10. في جزء «تقييد التعديل»:
    1. فعّل خانة «السماح فقط بهذا النوع من التعديل في المستند».
    2. اختر «تعبئة النماذج» من القائمة المنسدلة.
    3. انقر على «نعم، ابدأ فرض الحماية».
    4. في مربع حوار «بدء فرض الحماية»، اضبط كلمة المرور ثم انقر على «موافق».
      لوحة تقييد التحرير ومربع حوار بدء فرض الحماية

أصبحت القائمة الديناميكية الآن نشطة! عند اختيارك «فواكه» من القائمة الأولى، ستظهر في القائمة الثانية خيارات الفواكه فقط.

أمثلة توضح تحديد خيارات القائمة المنسدلة الثانية بناءً على الخيار المحدد في القائمة المنسدلة الأولى

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

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

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

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

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

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

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

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

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

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

Kutools for Word علامات التبويب على الشريط
 
 

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