Модераторы: mihanik

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выпадающий список в Word 
:(
    Опции темы
Gold Dragon
  Дата 11.6.2008, 14:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Призрачный
****


Профиль
Группа: Экс. модератор
Сообщений: 6753
Регистрация: 1.3.2004
Где: Россия, Тамбов

Репутация: нет
Всего: 71



Сразу прошу прощения если вопрос настолько примитивный smile я только начал разбираться с макросами, но в что-то в книжке про это не нашл..

В общем, я делаю документ с вводам данных для заполнения. Сейчас использую InputBox для ввода данных, но есть ограниченное количество известных. Вот я и подумал что такой элемент должен тоже быть smile

Если не трудно подскажите как это сделать


--------------------
Нельзя жить в прошлом, оно уже прошло.
Нельзя жить в будущем, оно ещё не наступило.
Нужно жить в настоящем, помня прошлое и думая о будущем!
PM MAIL WWW ICQ   Вверх
LOPUH
Дата 11.6.2008, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


Профиль
Группа: Участник
Сообщений: 245
Регистрация: 15.2.2008
Где: Красноярск

Репутация: 3
Всего: 4



Как я понял , вам требуется  шаблон документа .
Открываете и ставите галочку Вид -> Панели инструментов -> Формы. Там среди полей имеются  выпадающий список, текстовое поле ввода и флажок. Ставите их куда нужно, по мере надобности. 
Потом вы можете  заблокировать форму, т.е. разрешить ввод только в полях, отведенных для редактирования
если что то непонятно смотрите встроенную справку Создание форм для заполнения в Microsoft Word
PM MAIL   Вверх
Gold Dragon
Дата 16.6.2008, 08:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Призрачный
****


Профиль
Группа: Экс. модератор
Сообщений: 6753
Регистрация: 1.3.2004
Где: Россия, Тамбов

Репутация: нет
Всего: 71



Спасибо, сейчас попробую... если что, продолжим smile


--------------------
Нельзя жить в прошлом, оно уже прошло.
Нельзя жить в будущем, оно ещё не наступило.
Нужно жить в настоящем, помня прошлое и думая о будущем!
PM MAIL WWW ICQ   Вверх
Gold Dragon
Дата 16.6.2008, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Призрачный
****


Профиль
Группа: Экс. модератор
Сообщений: 6753
Регистрация: 1.3.2004
Где: Россия, Тамбов

Репутация: нет
Всего: 71



что-то малость не то.. у меня весь документ формируется динамически.. Это не совсем шаблон.. Всё необходимое вводится в макросе (основной текст), неизвестные данные вводятся через InputBox..

Я просто не погу понять куда эту форму встатить, чтобы данные попадали в нужное место когда формируется документ


--------------------
Нельзя жить в прошлом, оно уже прошло.
Нельзя жить в будущем, оно ещё не наступило.
Нужно жить в настоящем, помня прошлое и думая о будущем!
PM MAIL WWW ICQ   Вверх
LOPUH
Дата 16.6.2008, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


Профиль
Группа: Участник
Сообщений: 245
Регистрация: 15.2.2008
Где: Красноярск

Репутация: 3
Всего: 4



То есть проблемка в том, чтобы макрос определил место куда выводить данные набитые в InputBox'е?
Ну первое что приходит в голову - использовать закладки. Если это делать ручками, то добавляются они через меню Вставка -> Закладка . А программно это будет объект Bookmark. 
PM MAIL   Вверх
Staruha
Дата 16.6.2008, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



Если я правильно поняла 
В xl у меня так
Код

Private Sub ComboBox2_Change()
If ComboBox2.Text <> "" Then
Range("G2").Value = ComboBox2.Value
Else
Exit Sub
End If



--------------------
Возмездие настигнет
PM MAIL   Вверх
Gold Dragon
Дата 16.6.2008, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Призрачный
****


Профиль
Группа: Экс. модератор
Сообщений: 6753
Регистрация: 1.3.2004
Где: Россия, Тамбов

Репутация: нет
Всего: 71



вот что у меня есть (см. файл). В некоторых местах просто нужно выбирать из списка, сейчас я их ввожу. И именно для Word

Присоединённый файл ( Кол-во скачиваний: 35 )
Присоединённый файл  document.zip 2,48 Kb


--------------------
Нельзя жить в прошлом, оно уже прошло.
Нельзя жить в будущем, оно ещё не наступило.
Нужно жить в настоящем, помня прошлое и думая о будущем!
PM MAIL WWW ICQ   Вверх
LOPUH
Дата 16.6.2008, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Растение
*


Профиль
Группа: Участник
Сообщений: 245
Регистрация: 15.2.2008
Где: Красноярск

Репутация: 3
Всего: 4



Gold Dragon,  давайте еще раз а то я не очень понимаю при чем здесь сабж.. Итак, некий текст у вас сформировался динамически, при помощи макроса. Вам нужно вставить выпадающий список в уже готовый документ, чтобы пользователь мог уже в документе  редактировать некоторые поля, либо выпадающий список используется уже на этапе формирования документа, то есть документ создается с уже заполненными полями?
PM MAIL   Вверх
Staruha
Дата 16.6.2008, 11:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



Цитата

Selection.TypeText Text:="_____________________"

типа сюда ты добавляешь выбрать из списка?

Это сообщение отредактировал(а) Staruha - 16.6.2008, 11:56


--------------------
Возмездие настигнет
PM MAIL   Вверх
Akina
Дата 16.6.2008, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20580
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Цитата(Gold Dragon @  11.6.2008,  15:50 Найти цитируемый пост)
делаю документ с вводам данных для заполнения. Сейчас использую InputBox для ввода данных, но есть ограниченное количество известных. Вот я и подумал что такой элемент должен тоже быть 

InputBox умеет только принять строку. Ну еще можно задать начальное значение. Всё.
Если желается вводить несколько параметров, да еще при этом для каких-то выбирать из заранее известного списка - надо создать форму ввода, и разместить на ней поля для приема всех сразу значений. Для тех, список значений в которых известен заранее, следует использовать ListBox (список полностью известен) или ComboBox (список полностью известен или допустим ввод значения, которого в списке нет).


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Gold Dragon
Дата 16.6.2008, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Призрачный
****


Профиль
Группа: Экс. модератор
Сообщений: 6753
Регистрация: 1.3.2004
Где: Россия, Тамбов

Репутация: нет
Всего: 71



Цитата(LOPUH @  16.6.2008,  12:21 Найти цитируемый пост)
либо выпадающий список используется уже на этапе формирования документа, то есть документ создается с уже заполненными полями?
Да, именно так.

т.е. при создании документа, как я понимаю, должно выскочить некая форма для выбора. Потом то что я выберу вставиться в текст и документ продолжиться далее формироваться. После окончания работы макроса должен получиться уже готовый документ.

Akina, а читал про ListBox и ComboBox. но так и не понял как их использовать в моём случае... smile




--------------------
Нельзя жить в прошлом, оно уже прошло.
Нельзя жить в будущем, оно ещё не наступило.
Нужно жить в настоящем, помня прошлое и думая о будущем!
PM MAIL WWW ICQ   Вверх
Akina
Дата 16.6.2008, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20580
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Цитата(Gold Dragon @  16.6.2008,  13:16 Найти цитируемый пост)
так и не понял как их использовать в моём случае..

Рисуешь юзерскую форму, на нее накидываешь боксы всех размеров и мастей, от текстов до комбо, списки набиваешь требуемыми значениями.
После заполнения по нажатию кнопки (возможно, по закрытию) соотв. метод проверяет введенные значения и, если все в порядке, распихивает их в нужные места.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Staruha
Дата 16.6.2008, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



похоже вместо 
sText = InputBox("И.О.Фамилия члена комиссии", "Запрос данных")

sText =combobox.value
Тока я не вижу  как combobox формируется


--------------------
Возмездие настигнет
PM MAIL   Вверх
Gold Dragon
Дата 16.6.2008, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Призрачный
****


Профиль
Группа: Экс. модератор
Сообщений: 6753
Регистрация: 1.3.2004
Где: Россия, Тамбов

Репутация: нет
Всего: 71



да он у меня никак не формируется потому что не знаю как это делается smile


--------------------
Нельзя жить в прошлом, оно уже прошло.
Нельзя жить в будущем, оно ещё не наступило.
Нужно жить в настоящем, помня прошлое и думая о будущем!
PM MAIL WWW ICQ   Вверх
Staruha
Дата 17.6.2008, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



Код

Private Sub ComboBox1_DropButtonClick()
With ComboBox1
     .AddItem "F1", 0
     .AddItem "F1", 1 
     .AddItem "F2", 2
     .AddItem "F3", 3
     .AddItem "F4", 4
     .AddItem "F5", 5
    End With
 ComboBox1.RemoveItem (0) 
End Sub

Private Sub CommandButton1_Click()

  ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=514.5, Top:=48, Width:=150.75, Height:=36 _
        ).Select
       


End Sub



--------------------
Возмездие настигнет
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.1267 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.