Добрый день !
Помогите пожалуйста разрешить проблему.
Необходимо с помощью VBS добавить в главное меню ворда новый пункт выпадающего меню, так чтобы получилось МОЕ_МЕНЮ|Операция1, МОЕ_МЕНЮ|Операция2, ...

Никак не могу добавить контрол с типом CommandBarPupop
Вот код с комментариями :

'Предполагается, что ворд уже выполняется
Dim oWord
Set oWord = GetObject(,"Word.Application")

Dim myMenu

'Следующая строка вызывает ошибку - Недопустимый вызов или аргумент процедуры
'Set myMenu= oWord.CommandBars.ActiveMenuBar.Controls.Add(msoControlPopup,1,1,oWord.CommandBars.ActiveMenuBar.Controls.Count+1,False)

'Недопустимый аргумент попытался заменить индексом. В результате :
'Следующая строка выполняется без ошибок
'но с помощью индекса у меня получается создать контролы с типами
'1 - CommandBarButton
'2 - CommandBarComboBox (без кнопки выпадающего списка, т.е просто поле ввода)
'3 - CommandBarComboBox (с кнопкой выпадающего списка)
'4 - CommandBarComboBox (с кнопкой выпадающего списка и выпадающим списком)
'Типы проверял с помощью : Msgbox TypeName(oWord.CommandBars.ActiveMenuBar.Controls(oWord.CommandBars.ActiveMenuBar.Controls.Count))

Set myMenu= oWord.CommandBars.ActiveMenuBar.Controls.Add(1,1,1,oWord.CommandBars.ActiveMenuBar.Controls.Count+1,False)
Msgbox TypeName(oWord.CommandBars.ActiveMenuBar.Controls(oWord.CommandBars.ActiveMenuBar.Controls.Count))