كيف تعمل حقل نموذج منسدل فيه اكثر من 25 عنصر. ورد 2007
المشكلة: في وورد 2003 او 2007 لا تستطيع ادراج اكثر من 25 عنصر في حقل النموذج المنسدل. هنا الحل.
![](http://s273.photobucket.com/albums/jj235/ktayeh/form1.gif)
نضع الكود التالي:
كود:
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 1
'Load data into ComboBox
ComboBox1.List() = Array("Zero", "One", "Two", "Three")
End Sub
![](http://s273.photobucket.com/albums/jj235/ktayeh/form3.gif)
![](http://s273.photobucket.com/albums/jj235/ktayeh/form4.gif)
كود:
Private Sub ComboBox1_Change() ActiveDocument.FormFields("combobox1").Result = ComboBox1.Value End Sub
![](http://s273.photobucket.com/albums/jj235/ktayeh/form5.gif)
كود:
Sub gocombobox() UserForm.Show End Sub
![](http://s273.photobucket.com/albums/jj235/ktayeh/form7.gif)
هنا اليكم الكود النهائي للفورم شاملا ويرجى الانتباه للاسماء حيث ممكن ان تكون مختلفة مثلا بدل 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