Тема: Функции работы с элементами управления Word2010
В этой теме я размещу функции для работы с элементами управления.
Эти элементы находятся на вкладке «Разработчик» см. вложенный файл.
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 FunctionRe: Функции работы с элементами управления Word2010
Функция wdListContentControls, приведённая в посте №2 создает коллекцию элементов управления представленных на рис. вложения.
Отредактировано aap77 (19.02.2014 12:42:44)
- AstraSerEn
- Заблокирован
- Неактивен
Re: Функции работы с элементами управления Word2010
Натяжные потолки выручат от капитального починки, ежели протечет потолок, этак как они выдерживают нагрузку по 100 л. воды на м2. Ежели и вышло ЧП, то воду убирают, элементарно перегнав её к отверстию для светильника. В том случае, когда интегрированных светильников недостает либо люстры недостает, то спецы компании отгибают угол покрытия, издают воду, а опосля отдают потолок на пространство. Натяжные потолки «мебель» – наикрупнейшая отраслевая выставка, которая раз в год делается основным событием мебельного базара в рф и восточной европе. Корпусная мебель каждую осень в «экспоцентре» намереваются водящие вселенские бренды и производители, дизайнеры и спецы сообразно интерьеру для демонстрации новейших коллекций и наилучших образчиков мебельной моды, действенного делового общения и развития коммерциала.
При этом он здесь же воскрешает свою первоначальную форму. Натяжные потолки подходят для всех помещений: квартиры и коттеджа, кабинета, гостиницы и ресторана, спорткомплекса и школы, музея и концертного зала. А потолки, пропитанные особым антибактерицидным веществом, употребляются даже в мед учреждениях. Легкость и результативность установки не единственное амбиция натяжного потолка. корпусная мебель в Челябинске
Просторный отбор цветов и фактур дозволяет выполнить хоть какое дизайнерское заключение. Природная сохранность делает натяжной потолок безупречным вариантом для ванной, кухни и плавательного водоема. Отчего мы избираем натяжные потолки, а не элементарную