|
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
| Компьютерный форум OSzone.net » Сфера Microsoft » Microsoft Office (Word, Excel, Outlook и т.д.) » 2016 - Форма Word 2016 |
|
|
2016 - Форма Word 2016
|
|
Новый участник Сообщения: 18 |
Господа, добрый день. Подскажите пожалуйста как с помощью средств форм word сделать вставку текста через выпадающий список. Суть задачи такова :
Нужен выпадающий список в котором указывается должность работника и его ФИО. Сама должность должна располагаться на нескольких строчках: Директор комбаната ХХХ в г. Ульяновск Козлов.А.В |
|
|
Отправлено: 01:08, 01-05-2017 |
|
Новый участник Сообщения: 18
|
Профиль | Отправить PM | Цитировать |
|
Отправлено: 01:12, 01-05-2017 | #2 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Примерный вид документа
![]() Текст поля «ПолеСоСписком1» помечаем как скрытый текст, дабы оно не выводилось на печать. Примерный код макросов
Option Explicit
Sub SetDropDownEntries()
With ThisDocument.FormFields.Item("ПолеСоСписком1").DropDown.ListEntries
.Clear
.Add "Мама" & vbCr & "мыла раму"
.Add "Рабы" & vbCr & "не мы"
.Add "Мы не" & vbCr & "рабы"
End With
End Sub
Sub SetValueFromDropDownList()
With ThisDocument.FormFields
.Item("ТекстовоеПоле1").Result = .Item("ПолеСоСписком1").Result
End With
End Sub
Результат
Включаем защиту форм: ![]() Выбираем какой-либо пункт из списка: ![]() Нажимаем Tab, дабы выйти из поля (даже если оно одно — чтобы сработало событие завершение ввода поля), и смотрим на полученный результат в две строки:
Полагаю, вместо второго текстового поля можно обойтись и ссылкой на закладку, но пока не проверял сие. |
|
Отправлено: 12:01, 01-05-2017 | #3 |
|
|
Участник сейчас на форуме |
|
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| Не копируется картинки в word 2016 (ворд) с конкретного сайта | biomirror | Хочу все знать | 11 | 10-01-2017 11:16 | |
| 2016 - Microsoft Office 2016, Windows 10, Word документ не отправляется из Word | Irmi | Microsoft Office (Word, Excel, Outlook и т.д.) | 1 | 19-11-2016 08:50 | |
| 2016 - Перестали запускаться Word, Excel, Publisher, PowerPoint из Microsoft Office 2016 | strelez63 | Microsoft Office (Word, Excel, Outlook и т.д.) | 10 | 11-09-2016 17:44 | |
| 2016 - Свойства печати в Word 2013/2016 | id146661963@vk | Microsoft Office (Word, Excel, Outlook и т.д.) | 2 | 12-11-2015 10:18 | |
| Разное - Не меняется форма курсора в Word 2003 | dzh2000 | Microsoft Windows 2000/XP | 1 | 03-11-2010 11:32 | |
|