اريد عمل ارتاباط بين قوائم مندسلة

[Ali Tawfeek]

اخوانى لقد عملت قائمة منسدلة بها العديد من الاختيارات و الذى اريد اضافته هو اريد الربط بين كل اختيار و بين جملة معينة

المثال هو اذا كانت

1. مصر تقع فى افريقيا
2. السعودية تقع فى اسيا
3. اسبانيا تقع فى اوربا

اذا كانت القائمة تحتوى على اسماء البلاد ( مصر - السعودية - اسبانيا ) و ما اريده هو عندما اختار اى بلد ان يتم الربط بين اختيارى حتى يظهر اسم القارة فى سطر اخر يتم تحديده من قبلى و هكذا مع كل اختيار من القائمة

[Ali Tawfeek]

هل هناك جديد يا اخوانى بالنسبة الى هذا الموضوع

[برقش]

أخي الكريم

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

أنشئ قائمة منسدلة وأدرج فيها أسماء البلدان بحسب الشرح الوارد هنا: http://www.officena.net/ib/index.php?showtopic=23967

في هذا المثل وضعت أسماء البلدان التالية: السعودية، البحرين، ليبيا، مصر، اسبانيا، فرنسا. وتذكر أن العدد الأقصى للعناصر في القائمة هو 25 في الوورد. تأكد في ذلك المربع أن الاسم مقابل "إشارة مرجعية" هو Dropdown1. اذا اردت تغييره فتأكد من تغييره في نص الماكرو ادناه.

بالنسبة لأسماء القارات فلا تُستعمل هنا قائمة منسدلة لأنه لن يُختار منها شيئا. لذا يمكن استعمال "حقل نموذج نصي" (حيث الحرفان ab إلى يسار شريط الأدوات "نماذج"). ضع هذا الحقل حيثما تريد في المستند وانقر بزر الماوس الأيمن عليه واختر "خصائص". تأكد ان الاسم مقابل "اشارة مرجعية" هو Text1. اذا اردت تغييره فتأكد من تغييره أيضا في الماكرو.

والآن أضف هذا الماكرو إلى مستندك. عنوان الماكرو هو: UpdateTextFormField

Sub UpdateTextFormField()
    Select Case ActiveDocument.FormFields("Dropdown1").Result
    Case "السعودية", "البحرين"
        ActiveDocument.FormFields("Text1").Result = "آسيا"
    Case "مصر", "ليبيا"
        ActiveDocument.FormFields("Text1").Result = "افريقيا"
    Case "فرنسا", "اسبانيا"
        ActiveDocument.FormFields("Text1").Result = "اوروبا"
    End Select
End Sub

والآن عدد إلى خصائص القائمة المنسدلة (اي مربع "خيارات حقل نموذج منسدل" الذي اضفت فيه اسماء البلدان). تجد في الوسط "تنفيذ الماكرو عند". انقر على السهم تحت "الخروج" واختر الماكرو UpdateTextFormField ثم انقر على "موافق".

والآن عد الى مستندك واحمِ النموذج بالنقر على رسم القفل في شريط "نماذج". اختر دولة من القائمة، مثلا "ليبيا". ستجد انه حين تضغط على مفتاح Tab او على أحد الأسهم او حين تنقر في داخل حقل آخر، تظهر كلمة "افريقيا" تلقائيا في حقل النص.