Строки в комбобокс

[Ципихович Эндрю]

Ранее чтобы при открытии документа в Комбобокс добавлялись строки я пользовался скриптом в автозагрузке документа сверяя его имя
If ActiveDocument.InlineShapes.Item(1).OLEFormat.Object.Name = "ComboBox1" Then ActiveDocument.ComboBox1.AddItem "1"
Но столкнулся с ошибкой Run-time error 16389 - Внутренняя ошибка
Но у Комбобокса нет события Initialize
Как можно реализовать добавление строк при открытии документа в Комбобокс?
При событии GotFocus добавляется но каждый раз всё больше записей, после наведения курсора
Если ставить на событие LostFocus удаление всех записей с Комбобокса то получается полный круговорот строк в Комбобоксе
Как же сделать правильно?

подскажите, также как по типу Контрола отличить кнопка это или Комбобокс, в обоих случаях почему то ?? тип = wdInlineShapeOLEControlObject, или 5, не ужели они не разграничены между собой
Тип = ActiveDocument.InlineShapes.Item(1).Type

Добавлено через 26 минут и 27 секунд:
Не ну можно по высоте и ширине объекта:
'получаем высоту объекта № ...
h = Round(PointsToCentimeters(ActiveDocument.InlineShapes(1).Height), 1)
'получаем ширину объекта № ...
w = Round(PointsToCentimeters(ActiveDocument.InlineShapes(1).Width), 1)
Но в скрипте h =1,4, а на самом деле 40
Но в скрипте w = 18,6, а на самом деле 528
Почему так???

[Dimka]

Вопрос не понятен. Причём тут проверка Object.Name = "ComboBox1", если заранее известно, что этот код работает при загрузке документа, и в документе имеется комбобокс?

Кроме того, не нужно игнорировать запятые. Без них смысл текста пропадает.

[Ципихович Эндрю]

Проверка Object.Name нужна, чтобы загнать, что нужно, куда нужно.
Чем больше проверок, тем лучше, в пределах разумного.

Заранее не известно, что этот код работает при загрузке документа, где в документе имеется комбобокс. А если его удалили, что тогда?
Нашёл как отличить кнопку от комбобокса

Код: (Visual Basic)

'у комбобокса "Forms.ComboBox.1", у кнопки "Forms.CommandButton.1"
forms = ActiveDocument.InlineShapes(1).OLEFormat.ProgID

[RXL]

Ципихович Эндрю, если так и будешь коряво писать, то придется удалять твои посты.

[Ципихович Эндрю]

Понял, учту, подскажите пожалуйста, как скрипты выделять???

[RXL]

Оборачивать тегами  [code]....[/code] .

Ниже поля редактирования кнопка есть - "Предварительный просмотр". По ней попадешь на полноценное редактирование.

И про грамматику не забывай, чтобы тебя понимали.

[Ципихович Эндрю]

Чем больше разбираешся в Комбобоксах, тем больше появляется чудес, наткнулся
Строка кода:
ActiveDocument.ComboBox1.AddItem "1"
'Получил ошибку 430 Class does not support Automation or does not support expected interface
'Класс не поддерживает автоматизацию или не поддерживает ожидаемый интерфейс
'то есть Класс не поддерживает программирование объектов
Ранее всё добавлялось без проблем, почему так происходит?

Добавлено через 21 час, 30 минут и 1 секунду:
Понял в чём дело, открываешь Вордовский документ, пытаешся, нажать на кнопку, на комбобокс и этот контрол выделяется рамкой.
Он как бы готов для редактирования, в меню этого контрола Свойства и Исходный текст не доступны, но кликнув в меню на Объект появляется сообщение - Объект повреждён либо стал не доступен. Можно ли его вылечить, сделать доступным???


Добавлено через 2 часа, 45 минут и 14 секунд:
Есть проедположение, что это происходит после того, как документ был некорректно закрыт и восстановлен Вордом, или по другой причине, при этом он все объекты превратил в картинки.
Как с этим бороться??