ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Прочитать значение комбобокса в ворде
22 сообщений из 22, страница 1 из 1
Прочитать значение комбобокса в ворде
    #36267929
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Пытаюсь так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
    Dim i
    On Error Resume Next
    For i =  0  To Application.ActiveDocument.InlineShapes.Count -  1 
        With Application.ActiveDocument.InlineShapes.Item(i).OLEFormat.Object
            Debug.Print .Name
            Debug.Print .Value
        End With
    Next
Не получается. Текстовые поля считываются. А комбо, списки, переключатели, флажки - нет.

Подскажите, кто знает.
...
Рейтинг: 0 / 0
22.10.2009, 21:31
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268154
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
ошибку выдаёт или пустые значения выводит?

возможно, необходимо определить промежуточные объекты при помощи Set.
была похожая ситуация со считыванием значений tabledef-ов,
примерно так когда строка currentdb.tabledefs('trampampam').properties('trampampam').value не определялась, а set tdf= currentdb.tabledefs('trampampam'): tdf.properties... работало на ура
...
Рейтинг: 0 / 0
23.10.2009, 10:04
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268194
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Выдает ошибку: Объект не поддерживает свойство или метод

Насчет Set. Да, конечно, я пытался и так
Код: plaintext
1.
Set f = Application.ActiveDocument.InlineShapes.Item(i).OLEFormat.Object
Debug.Print f.Value
Ошибка

Тип контрола
Код: plaintext
1.
2.
3.
?typename(Application.ActiveDocument.InlineShapes.Item(i).OLEFormat.Object)
HTMLSelect
?Application.ActiveDocument.InlineShapes.Item(i).OLEFormat.classtype
Forms.HTML:Select. 1
...
Рейтинг: 0 / 0
23.10.2009, 10:18
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268223
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
mds_world,

ворда под рукой нет сейчас, попробуйте сетами выделить основные объекты.

set doc=Application.ActiveDocument
set shape1=doc.InlineShapes.Item(i)

и на тестовом примере докопаться до определённого шэйпового комбобокса . через фиксированный номер шэйпы.

был же ведь в VBA какой-то риалтайм пропертис вьювер. сделайте останов на следующей строке после set shape1.. и посмотрите какие свойства видны.
...
Рейтинг: 0 / 0
23.10.2009, 10:26
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268235
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
ps и фиксированный номер айтема :)
...
Рейтинг: 0 / 0
23.10.2009, 10:30
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268295
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Рремешок,
пытался и так. Пока не получилось
...
Рейтинг: 0 / 0
23.10.2009, 10:48
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268323
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
mds_worldРремешок,
пытался и так. Пока не получилосьугу.

а проперти вьювер свойства комбобокса видит в риалтайме?
...
Рейтинг: 0 / 0
23.10.2009, 10:51
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268336
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Рремешока проперти вьювер свойства комбобокса видит в риалтайме?
Не видит. Пусто в окне Properties
...
Рейтинг: 0 / 0
23.10.2009, 10:54
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268371
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
mds_worldРремешока проперти вьювер свойства комбобокса видит в риалтайме?
Не видит. Пусто в окне Propertiesmds_world,

я про риалтаймовый который в коде по останову работает. там ещё можно взять аппликэйшн привязать к переменной и просмотреть все свойства и объекты до упора какие есть :)

не помню как называется. вот в нём посмотрите.
...
Рейтинг: 0 / 0
23.10.2009, 11:02
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268502
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Рремешок,
не совсем понимаю, о чем вы говорите.
Может быть, подробней как-то.

Разумеется, делал остановы и пытался пробовать любые свойства из предлагаемого набора. Не получается. Не знаю какой набор свойств должен показать желаемое
...
Рейтинг: 0 / 0
23.10.2009, 11:29
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268805
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Если кто-то пожелает помочь, то прикладываю пример
...
Рейтинг: 0 / 0
23.10.2009, 12:37
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36268936
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaximuS_G
Участник
Я бы с радостью Вам помог, к сожалению, не знаю как...
...
Рейтинг: 0 / 0
23.10.2009, 13:07
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36269179
Ошибка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ошибка
Гость
Can't exit design mode because Control 'DefaultOcxName' can not be created.
...
Рейтинг: 0 / 0
23.10.2009, 14:33
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270042
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
в общем добрался до ворда.. не пойму в чём у вас проблема.


создал файлик с комбобоксом.

такой код вполне себе работает..

Код: plaintext
1.
2.
3.
4.
Sub controlsThisDocument1()    
    MsgBox ComboBox1.Value
    ComboBox1.Value = "-------------"
End Sub
...
Рейтинг: 0 / 0
23.10.2009, 21:27
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270053
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Рремешок,
а в моем файле не пробовали?
...
Рейтинг: 0 / 0
23.10.2009, 21:39
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270055
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
mds_worldа в моем файле не пробовали?в вашем ошибка с ocx при выходе из режима дизайна. вот в точности как выше написано такая же.
...
Рейтинг: 0 / 0
23.10.2009, 21:41
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270062
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Вот именно. Блин! Проблема на пустом месте. Всегда работало, а сейчас, как раз когда клиент торопит, полный тормоз. И причину-то не пойму. Не улавливаю
...
Рейтинг: 0 / 0
23.10.2009, 21:47
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270066
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
походу у вас слетел ocx :)

попробуйте пересоздать шаблон
...
Рейтинг: 0 / 0
23.10.2009, 21:48
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270087
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
Рремешок,
если и слетел, то не у меня. Я получил это по почте. Удаленка. Заставлять клиента что-то переустанавливать? Не уверен, что правильно поймет.

Но ведь, что интересно - все контролы работают!
...
Рейтинг: 0 / 0
23.10.2009, 22:20
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270267
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
Значит у вас комбобоксы неправильной версии :)

потому как на чистой машине с офисом 2003 от контролов остались только картинки .
...
Рейтинг: 0 / 0
24.10.2009, 10:18
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270418
Фотография mds_world
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mds_world
Участник
РремешокЗначит у вас комбобоксы неправильной версии :) .


Рремешокпотому как на чистой машине с офисом 2003 от контролов остались только картинки . Сегодня ночью, из-за вируса пришлось винду переустанавливать. Соответственно, снова офис 2003. На формуляре все контролы работают, видны не только картинки. Чудеса!
...
Рейтинг: 0 / 0
24.10.2009, 13:52
| Ответить | Цитировать | Написать  
Прочитать значение комбобокса в ворде
    #36270444
Фотография Рремешок
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рремешок
Участник
вот сичас винду на второй комп поставлю xpsp2 и office2003 - ещё разок проверю :)
...
Рейтинг: 0 / 0
24.10.2009, 14:29
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Прочитать значение комбобокса в ворде
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36269179&tid=2178931]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 179ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 78ms
get tp. blocked users:
 1ms
others: 243ms
total:  548ms
созд. / загр.: 548ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]