كيف تعمل حقل نموذج منسدل فيه اكثر من 25 عنصر. ورد 2007

[علي العمري]

كيف تعمل حقل نموذج منسدل فيه اكثر من 25 عنصر. ورد 2007

المشكلة: في وورد 2003 او 2007 لا تستطيع ادراج اكثر من 25 عنصر في حقل النموذج المنسدل. هنا الحل.

نضع الكود التالي:

كود:

Private Sub UserForm_Initialize()

ComboBox1.ColumnCount = 1

'Load data into ComboBox

ComboBox1.List() = Array("Zero", "One", "Two", "Three")

End Sub

كود:

Private Sub ComboBox1_Change() ActiveDocument.FormFields("combobox1").Result = ComboBox1.Value End Sub

كود:

Sub gocombobox() UserForm.Show End Sub

هنا اليكم الكود النهائي للفورم شاملا ويرجى الانتباه للاسماء حيث ممكن ان تكون مختلفة مثلا بدل combobox1 ممكن يكون combobox2 هكذا... وهنا وضعت نموذجين بدل من واحد اذا تلاحظ:
كود:

Private Sub ComboBox1_Change()ActiveDocument.FormFields("combo box1").Result = ComboBox1.ValueEnd SubPrivate Sub ComboBox2_Change() ActiveDocument.FormFields("combobox2").Result = ComboBox2.ValueEnd SubPrivate Sub CommandButton1_Click() Unload MeEnd SubPrivate Sub UserForm_Initialize() ComboBox1.ColumnCount = 1 ComboBox2.ColumnCount = 1 'Load data into ComboBox ComboBox1.List() = Array("Zero", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27") ComboBox2.List() = Array("Zero", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27")End Sub

المصدر
http://www.absba.org/vb/showthread.php?t=738012

[صديق المصادر]

بارك الله فيك