ActiveDocument.ComboBox1.AddItem "Эт"
ActiveDocument.ComboBox1.AddItem "Эт"
ActiveDocument.ComboBox1.AddItem "Юр"
ActiveDocument.ComboBox1.AddItem "Яв"
Количество_строк_в_ComboBox = ActiveDocument.ComboBox1.ListCount 'тут присваивается 4, и все записи реально попадают в Комбобокс, ОК
'объект Dictionary - Словарь не встроен в VBA, он находится в библиотеке Microsoft Scripting Runtime
'чтобы использовать объект Dictionary в VBA программе, нужно добавить ссылку на библиотеку Microsoft Scripting Runtime
DIM dictBigCats AS Scripting.Dictionary
'создать словарь
Set dictBigCats = CreateObject("Scripting.Dictionary")
 
FOR w =  1  TO Количество_строк_в_ComboBox
Y = ActiveDocument.ComboBox1.LIST(w) 'на втором проходе присвивается "Юр" а не "Эт", почему ???, на последнем проходе цикла ошибка 381 Invalid property-array index    Недопустимый индекс массива свойств
'поиск происходит только по первому значению словаря
IF (dictBigCats.Exists(ActiveDocument.ComboBox1.LIST(w))) THEN
MsgBox$ "Одинаковые записи в элементе управления ComboBox: " & ActiveDocument.ComboBox1.LIST(w)
EXIT FOR
ELSE
'теперь можно добавлять в словарь имена элементов и значения с помощью метода Add
dictBigCats.Add ActiveDocument.ComboBox1.LIST(w),  1 
Количество_записей_в_словаре = dictBigCats.Count
END IF
NEXT w