Форма Word 2016 - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - Форма Word 2016 (http://forum.oszone.net/showthread.php?t=326414)

Форма Word 2016

Господа, добрый день. Подскажите пожалуйста как с помощью средств форм word сделать вставку текста через выпадающий список. Суть задачи такова :
Нужен выпадающий список в котором указывается должность работника и его ФИО. Сама должность должна располагаться на нескольких строчках:

Директор комбаната ХХХ
в г. Ульяновск Козлов.А.В

Примерный вид документа

Текст поля «ПолеСоСписком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, дабы выйти из поля (даже если оно одно — чтобы сработало событие завершение ввода поля), и смотрим на полученный результат в две строки:

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