Wie füge ich eine ComboBox in Word hinzu, die das freie Tippen und die Mehrfachauswahl ermöglicht?

412
Alexa

Ich arbeite an einem Dokument, in dem ich eine ActiveX-ComboBox einfügen muss, mit der der Benutzer mehrere Elemente aus der Liste auswählen oder Freitext hinzufügen kann.

Was ich derzeit mit Schwierigkeiten habe, ist das Hinzufügen mehrerer Elemente. Wenn ich ein zweites Element auswähle, wird das erste gelöscht.

Zweitens erscheinen die Elemente mit dem folgenden Code etwa zehnmal in der Liste.

Private Sub Document_Open() With Me.ComboBox1 .AddItem "atrial fibrillation" .AddItem "carotid artery stenosis" .AddItem "cataracts" .AddItem "chronic kidney disease" .AddItem "chronic kidney disease, stage 3" .AddItem "COPD" .AddItem "coronary disease" .AddItem "diverticulosis" .AddItem "GERD" .AddItem "gout" .AddItem "hypertension" .AddItem "iron deficiency anemia" .AddItem "osteoarthritis" .AddItem "peripheral vascular disease" .AddItem "vitamin D deficiency" .ListIndex = 0 End With End Sub 

Irgendeine Hilfe?

0
Fügen Sie einfach vor der ersten `.AddItem`-Zeile ein` .Clear` in Ihren Code ein. PeterT vor 5 Jahren 0

0 Antworten auf die Frage