Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.08.2008, 12:29   #1
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию Создание выпадающих списков в Word

Есть таблица в Worde, необходимо, чтобы в некоторых ее ячейках была возможность выбирать сначение из выпадающего списка (аналог combobox). Кто знает как реализовать?
Dux вне форума
Старый 17.08.2008, 09:16   #2
vladtr
Форумчанин
 
Регистрация: 28.07.2008
Сообщений: 119
По умолчанию

Вставляйте объект - Лист Microsoft Excel и делайте что надо...
vladtr вне форума
Старый 17.08.2008, 09:29   #3
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию

Цитата:
Сообщение от vladtr Посмотреть сообщение
Вставляйте объект - Лист Microsoft Excel и делайте что надо...
Немного неудобно.. есть ли какие-либо другие варианты?
Dux вне форума
Старый 18.08.2008, 22:25   #4
vladtr
Форумчанин
 
Регистрация: 28.07.2008
Сообщений: 119
Сообщение Может так...

Цитата:
Сообщение от Dux Посмотреть сообщение
Немного неудобно.. есть ли какие-либо другие варианты?
Создать форму, а в ней поля со списками для выбора нужных значений, а по завершению или нажатию OK, в необходимые места таблицы их вставлять...
vladtr вне форума
Старый 19.08.2008, 13:13   #5
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

Открываешь панель "Элементы управления" (правой кнопкой мыши на панели инструментов) выбираешь ComboBox, вставляешь в ячейку таблицы. В режиме конструктора (кнопка с треугольником и карандашом) тебе также доступны свойства и исходный текст (двойной клик левой клавишей мыши на ComboBox сразу создает процедурку ComboBox1_Change() - действия при изменении содержимого). Соответственно перед использованием, ComboBox необходимо заполнить значениями, грубо говоря опиши процедуру заполнения (макрос) например:
Код:
Private Sub ComboBox1_DropButtonClick()
With ComboBox1
     .AddItem "Раз", 0
     .AddItem "Два", 1
     .AddItem "Три", 2
    End With
End Sub
Также заполненение ComboBox можно повесить на открытие Документа...
madmot вне форума
Старый 19.08.2008, 22:36   #6
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию

madmot спасибо, код вставил, однако не знаю как его активировать. При открытии документа Combobox пустой и меню не выпадает, а запускается Visual Basic
Dux вне форума
Старый 20.08.2008, 10:10   #7
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

Скорее всего надо отключить режим конструктора на панели "Элементы управления" (т.е. отжать кнопочку с треугольником и карандашом). Ну и надеюсь, что вышеуказанный код (ComboBox1_DropButtonClick() - отрабатывает нажатие на стрелочку для раскрытия списка) ты вставил НЕ в процедуру ComboBox1_Change(), а выше или ниже ее.
madmot вне форума
Старый 21.08.2008, 00:02   #8
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию

Цитата:
Сообщение от madmot Посмотреть сообщение
Скорее всего надо отключить режим конструктора на панели "Элементы управления" (т.е. отжать кнопочку с треугольником и карандашом). Ну и надеюсь, что вышеуказанный код (ComboBox1_DropButtonClick() - отрабатывает нажатие на стрелочку для раскрытия списка) ты вставил НЕ в процедуру ComboBox1_Change(), а выше или ниже ее.
Madmot, что-то не выходит. Можете глянуть в чем проблема?
Вложения
Тип файла: doc Word.doc (25.0 Кб, 156 просмотров)
Dux вне форума
Старый 22.08.2008, 06:18   #9
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

Dux, не успел вчера ответить.

Посмотрел, вот примерно, что получилось.

Замечу, как и выше, ComboBox1_Click() и ComboBox1_DropButtonClick() и т.д. - обработчики различных событий происходимых с ComboBox1.
Естественно, заполнение ComboBox1 не рационально вешать на DropButtonClick, это было приведено как ПРИМЕР, инициализацию таких вещей лучше производить отдельно, на крайний случай повесить на открытие документа (Document_Open()).

Обрати внимание: в верху окна кода VBA расположены два ComboBox, в левом - объекты (наш Document и наш ComboBox1), в правом события, которые с ними могут происходить. При их выборе автоматически формируется процедура обработки, где можно описать действия производимые при наступлении этого события.

И еще, в Helpe VBA есть описание и пример использования ComboBox (на вкладке "Указатель" -> Combo Box)
Вложения
Тип файла: doc Doc1.doc (31.0 Кб, 319 просмотров)
madmot вне форума
Старый 22.08.2008, 09:57   #10
Dux
Delphi Master
Форумчанин Подтвердите свой е-майл
 
Аватар для Dux
 
Регистрация: 31.03.2008
Сообщений: 803
По умолчанию

madmot, спасибо за помощь, но все-таки я чего-то не догоняю. При открытии документа список не заполняется...
Изображения
Тип файла: jpg screenshot.jpg (21.2 Кб, 314 просмотров)
Dux вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемма с быстой сортировкой связанных списков Grind Помощь студентам 0 30.05.2008 20:33
Сравнение двух списков lelik759 Microsoft Office Excel 7 13.04.2008 22:19
Объединение списков. life_burns Microsoft Office Excel 5 05.04.2008 16:13
Взаимодействие списков. Похоже на сводную, но не она. Matthias Microsoft Office Excel 4 22.02.2008 15:17