Как сделать чтобы строка в ворде не двигалась


Лучшие новости сайта

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

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

Страницы 1

Чтобы отправить ответ, вы должны или

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

1 Тема от Route

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

Приветствую! Как сделать список я понял:
А вот как это дело усовершенствовать: мне надо что бы в списке были значения (или некий текст), но выводился не он, а связанные с ними предложения. Т.е например в списке
0
1
2
3

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

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

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

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

2 Ответ от viter.alex

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

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

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

3 Ответ от Route

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

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

4 Ответ от viter.alex

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

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

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

5 Ответ от Route

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

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

6 Ответ от viter.alex

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

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

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

7 Ответ от Route

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

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

8 Ответ от viter.alex

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

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

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

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

9 Ответ от Route

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

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

10 Ответ от Vank

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 даст ответ про: . Давайте возьмем, допустим, мощнейший редактор текста, всем хорошо известный и почти каждым используемый Microsoft Word. На портале о Microsoft Office Word вы узнаете про: . Казалось бы, о нем мы знаем все, он как супруг, с которым прожили много лет. Но, как человека нельзя изучить на 100 %, так и эта программа таит в себя множество скрытых функций и возможностей. На портале о Microsoft Office Word вы узнаете про: . Часто человек и не задумывается о них, пока вдруг не понадобятся. И вот тут-то все просто и сложно, потому что информации в Интернете масса, но ее еще надо найти и отсортировать. На портале о Microsoft Office Word вы узнаете про: .

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

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

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


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



Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась

Как сделать чтобы строка в ворде не двигалась