Как сделать выпадающий код

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 10 ]

1 Тема от Route 21.07.2010 22:54:12

Тема: Выпадающий список в word 2007

Приветствую! Как сделать список я понял: http://wordexpert.ru/page/kak-vstavit-v … so-spiskom
А вот как это дело усовершенствовать: мне надо что бы в списке были значения (или некий текст), но выводился не он, а связанные с ними предложения. Т.е например в списке
0
1
2
3

Если выбрать из списка 1 то должен вывести текст Привет, как дела?
Если выбрать 2 - Пока!
3 - еще какое-то предложение.

Притом надо, что бы выводились именно предложения (длинные) и возможно даже несколько предложений. Может брать их из файла или как-то?!

Такое вообще реально сделать?

Отредактировано Route (21.07.2010 22:57:18)

2 Ответ от viter.alex 22.07.2010 07:51:06

Re: Выпадающий список в word 2007

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

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

3 Ответ от Route 22.07.2010 21:58:28

Re: Выпадающий список в word 2007

А не дадите примерчик? Пожалуйста  smile

4 Ответ от viter.alex 23.07.2010 10:04:52

Re: Выпадающий список в word 2007

К Вашему счастью, я нашёл код, который делал на заказ 10 дней назад. Поскольку заказчик остался доволен, могу опубликовать код здесь:

Option Explicit 'Имя поля со списком. Менять только здесь Private Const sDropDownName As String = "ПолеСоСписком1" 'Заголовок окна сообщений Private Const sDialogTitle As String = "Вставка текста при выборе из списка" Public Sub InsertCorrespondentText() Dim n As Integer 'Порядковый номер выбранного элемента списка Dim sText As String 'Текст, который должен вставляться в документ Dim opar As Paragraph 'Абзац, в котором находится список With ActiveDocument With.Bookmarks If.Exists(sDropDownName) Then If.Item(sDropDownName).Range.FormFields(1).DropDown.Valid Then n =.Item(sDropDownName).Range.FormFields(1).DropDown.Value Set opar =.Item(sDropDownName).Range.Paragraphs.Last Else: Exit Sub End If Else: Exit Sub End If End With If Len(.BuiltInDocumentProperties("Comments")) <> 0 Then sText = Split(.BuiltInDocumentProperties("Comments"), vbLf)(n - 1) Else MsgBox "В документе не заполнено свойство ""Комментарии""!", vbInformation + vbOKOnly, sDialogTitle Exit Sub End If 'Защита снимается, вносятся изменения и защита ставится вновь If.ProtectionType = wdAllowOnlyFormFields Then 'В кавычках необходимо прописать пароль для снятия защиты, если он есть.Unprotect "" 'Текст абзаца, следующего за списком изменяется на соответствующий текст opar.Next.Range.Text = sText & vbCr 'Ставим защиту назад. Если необходимо, то в кавычках нужно указать пароль.Protect wdAllowOnlyFormFields,, "" End If End With End Sub

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

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

5 Ответ от Route 23.07.2010 17:26:42

Re: Выпадающий список в word 2007

Эх! Так и не смог воспользоваться этим макросом. Что за свойства "Комментарий", куда что вставить так и не понял. Если будет свободное время и желание вышлите пример пожалуйста...

6 Ответ от viter.alex 23.07.2010 17:52:21

Re: Выпадающий список в word 2007

Как же так? "Комментарий" можно изменить либо через свойства файла в проводнике, на вкладке "Сводка" или в самом Word: Office→Подготовить→Свойства
"Комментарий" может быть многострочным. Каждая строка соответствует элементу списка, т.е. если в списке 5 пунктов, то в "Комментарии" должно быть 5 строк

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

7 Ответ от Route 24.07.2010 08:23:56

Re: Выпадающий список в word 2007

Чувствую себя совсем тупым smile Не могу я найти такого. вообще не понимаю о чем идет речь. Лан извините за тупость мою smile Abu с ним.

8 Ответ от viter.alex 24.07.2010 13:19:46

Re: Выпадающий список в word 2007

Ещё раз: кнопка Office→Подготовить→Свойства
И заполнить свойство "Примечание":
Выпадающий список в word 2007

Я немного запутал тебя, назвав это свойство "Комментарий", но именно так оно названо в свойствах документа, которые вызываются нажатием Alt+Enter на имени файла в проводнике (документ должен быть закрыт):
Выпадающий список в word 2007

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

9 Ответ от Route 14.10.2010 19:04:58

Re: Выпадающий список в word 2007

viter.alex, я так ничего и не смог сделать! Туповат наверное в этом деле smile Может кто-нибудь скинуть пример с таким выпадающим списком? Мне бы очень облегчило это жизнь. Пожалуйста, помогите.

10 Ответ от Vank 15.10.2010 16:34:07

Re: Выпадающий список в word 2007

Здравствуйте!

viter.alex, я так ничего и не смог сделать! Туповат наверное в этом деле

Не отчаивайтесь, я тоже бьюсь над этими drop down ни фига не выходит!
Блин программа на простого пользователя расчитана.... yikes
На изнанку выворачиваться приходится....Короче как я заметил Александр поменял
местоположение, Харькiв на Монреаль!
Замена достойная, но  вероятнее всего ему пока не до нас, наберитесь терпения....
Пока он от кленового сиропа оторвётся.... big_smile  tongue  lol
С уважением

Stupid is as stupid does!

Сообщений [ 10 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

Выпадающий список в word 2007

В век Интернета разобраться в чем-либо стало одновременно и проще и сложней. Как это? Сейчас поясним на примере. Наш сайт о Microsoft Office Word даст ответ про: word 2010 начать новую нумерацию. Давайте возьмем, допустим, мощнейший редактор текста, всем хорошо известный и почти каждым используемый Microsoft Word. На портале о Microsoft Office Word вы узнаете про: office 2007 ключь. Казалось бы, о нем мы знаем все, он как супруг, с которым прожили много лет. Но, как человека нельзя изучить на 100 %, так и эта программа таит в себя множество скрытых функций и возможностей. На портале о Microsoft Office Word вы узнаете про: как в документах правильно ставить маркеры в ворде. Часто человек и не задумывается о них, как сделать выпадающий код пока вдруг не понадобятся. И вот тут-то все просто и сложно, потому что информации в Интернете масса, но ее еще надо найти и отсортировать. На портале о Microsoft Office Word вы узнаете про: как избавиться от больших пробелов в ворде.

Впрочем, если вы обратитесь на форум Ворд Эксперт, просеивать песок в поисках золотых крупиц не придется. На портале о Microsoft Office Word вы узнаете про: сохранение данных форм в ворде 2010. И работать с Word по-старинке тоже. На нашем сайте собрана вся необходимая информация, ссылки на литературу, вопросы, которые тревожат пользователей довольно часто. Наш сайт о Microsoft Office Word даст ответ про: оглавление в ворде 2010 с авторами.

Настройкам различных версий программы и форматированию, редактированию текстов посвящен целый раздел. Наш сайт о Microsoft Office Word даст ответ про: как сделать один рисунок на другой в 2007. В другом разделе вас научат, как автоматизировать работу, в третьем предложат готовые решения (написанные другими пользователями макросы, схемы и так далее). На портале о Microsoft Office Word вы узнаете про: поиск и замена текста в excel. Наконец, если вы все-таки не нашли то, что необходимо вам в данный момент, можете оставить заявку.

Потратив несколько минут на чтение форума сайта Ворд Эксперт, вы сэкономите гораздо больше времени. На портале о Microsoft Office Word вы узнаете про: панель формы в ms word 2007.


Источник: http://wordexpert.ru/forum/viewtopic.php?id=391



Рекомендуем посмотреть ещё:


Закрыть ... [X]

HTML Формы - Как создать HTML форму - Выпадающий Как сделать биг бег



Как сделать выпадающий код Сбор данных из файлов Excel в заданной папке
Как сделать выпадающий код Как сделать выпадающий список в экселе
Как сделать выпадающий код Выпадающий список с мультивыбором
Как сделать выпадающий код Выпадающий список в ячейке листа
Как сделать выпадающий код Выпадающий календарь - Мир MS Excel
Выпадающий список в word 2007 «Золотая рыбка» из CD диска. Воспитателям детских садов. - Маам. ру Гостиная-спальня в одной комнате: дизайн и Делаем «золотую» рыбку из cd-диска Джинсовый сарафан своими руками pafevopyn Замена подвеса динамика своими руками Видео на Запорожском портале

ШОКИРУЮЩИЕ НОВОСТИ