1

Тема: Функции работы с элементами управления Word2010

В этой теме я размещу функции для работы с элементами управления.
Эти элементы находятся на вкладке «Разработчик» см. вложенный файл.

Post's attachments

Элементы управления.png 45.91 Кб, 3 скачиваний с 2014-02-19 

You don't have the permssions to download the attachments of this post.

2

Re: Функции работы с элементами управления Word2010

Содаем функцию списков
Вот код:

Public Function wdListContentControls() As Collection ' Возвращает коллекцию списков элементов управления активного документа
Dim Cnt As ContentControl, ComboLists As Collection, DDLists As Collection
    Set ComboLists = New Collection ' Коллекция элементов управления «Комбинированный список»
    Set DDLists = New Collection ' Коллекция элементов управления «Обычный список»
    For Each Cnt In ActiveDocument.ContentControls ' Цикл перебора элементов управления
        If Cnt.Type = wdContentControlComboBox Then ' Если элемент управления «Комбинированный список», то добавлем егов коллекцию ComboLists
            ComboLists.Add Cnt, "Combo_" & Cnt.ID
        ElseIf Cnt.Type = wdContentControlDropdownList Then ' Если элемент управления «Обычный список», то добавлем егов коллекцию DDLists
            DDLists.Add Cnt, "List_" & Cnt.ID
        End If
    Next Cnt
    Set wdListContentControls = New Collection ' Создаем коллекцию wdListContentControls
        wdListContentControls.Add ComboLists, "ComboLists" ' Добавляем коллекции ComboLists и DDLists
        wdListContentControls.Add DDLists, " DDLists"
End Function

3

Re: Функции работы с элементами управления Word2010

Функция wdListContentControls, приведённая в посте №2 создает коллекцию элементов управления представленных на рис. вложения.

Отредактировано aap77 (19.02.2014 12:42:44)

Post's attachments

Списки.png 45.4 Кб, 3 скачиваний с 2014-02-19 

You don't have the permssions to download the attachments of this post.

4

Re: Функции работы с элементами управления Word2010

Натяжные потолки выручат от капитального починки, ежели протечет потолок, этак как они выдерживают нагрузку по 100 л. воды на м2. Ежели и вышло ЧП, то воду убирают, элементарно перегнав её к отверстию для светильника. В том случае, когда интегрированных светильников недостает либо люстры недостает, то спецы компании отгибают угол покрытия, издают воду, а опосля отдают потолок на пространство.  Натяжные потолки   «мебель» – наикрупнейшая отраслевая выставка, которая раз в год делается основным событием мебельного базара в рф и восточной европе.  Корпусная мебель  каждую осень в «экспоцентре» намереваются водящие вселенские бренды и производители, дизайнеры и спецы сообразно интерьеру для демонстрации новейших коллекций и наилучших образчиков мебельной моды, действенного делового общения и развития коммерциала. 

При этом он здесь же воскрешает свою первоначальную форму. Натяжные потолки подходят для всех помещений: квартиры и коттеджа, кабинета, гостиницы и ресторана, спорткомплекса и школы, музея и концертного зала. А потолки, пропитанные особым антибактерицидным веществом, употребляются даже в мед учреждениях. Легкость и результативность установки не единственное амбиция натяжного потолка.  корпусная мебель в Челябинске 

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

Обращайтесь [url=https://vk.com/prodvizhenie_sajtov_raskrutka]раскрутка сайтов в яндекс[/url]

5

Re: Функции работы с элементами управления Word2010

Личные сообщения у всех сегодня отправляются?

[url=https://www.craftsway.info/bedding/pillows/moshi-pillow-travel-pillows-moshi-pillow-for-kids-animal/]craftsway.info[/url]