ComboBox1.List() = Array(".....  -

в такое выражение можно подставить порядка 30 значений, а мне надо около 200. Как попроще сделать7

цикл не предлагать ?

можно, хоть и нежелательно) VBA вижу вообще впервые, у него такое жесткое ограничение по длине строки/списка?

пример более подробно озучь - решим

combobox1.additem "item1"
...
combobox1.additem "item201"

for i=1 to 200
  combobox1.additem "item"&i
next i

Надо чтобы в Worde в текстовом поле был выпадающий список из 200 значений, ну и соотвественно чтобы значение выбиралось.

Вот такое работает:

Private Sub UserForm_Initialize()

 ComboBox1.ColumnCount = 1

 'Load data into ComboBox

 ComboBox1.List() = Array("   Апрелевка РБ №6 ", "   Балашиха МООД   ")

End Sub


---

Но надо больше значений

(4) читай внимательно,он совершенно не про то говорит. Проблема в другом

(5) делаешь список на любом листе книги
выделяешь его и задаешь этому диапазону
новое имя - NewMyName


Private Sub UserForm_Initialize()

ComboBox1.ColumnCount = 1

'Load data into ComboBox

ComboBox1.List() = Array(NewMyName)

End Sub

(7) опс , не заметил что у тебя Word

нельзя как-то несколько строк объединить типа

Список= Список1+список2

ComboBox1.List() = Array(Список)

а пройтись в цикле по массиву не судьба что ли?

ок, попробую