1 Тема от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Тема: Строки в комбобокс

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

2 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

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

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

3 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

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

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

4 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

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

Нашёл как отличить кнопку от комбобокса

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

5 Ответ от Vank

  • Строки в комбобокс
  • Vank
  • майор
  • Неактивен
  • Откуда: Екатеринбург, с Урала мы.
  • Зарегистрирован: 26.08.2010
  • Сообщений: 65
  • Поблагодарили: 2

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

Цихипович Эндрю, сам пишет, сам спрашивает, сам отвечает! smile
Давайте, я хоть порадуюсь за вас! big_smile
Уж больно тематика специальная!
С уважением!

Stupid is as stupid does!

6 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

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

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

7 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

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

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

8 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

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

Речь об Офисе 2003!

9 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

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

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