Ранее чтобы при открытии документа в Комбобокс добавлялись строки я пользовался скриптом в автозагрузке документа сверяя его имя
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
Почему так???