Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Возвращает коллекцию ListGalleries , представляющую три коллекции шаблонов списков. .
Синтаксис
выражение. ListGalleries
выражение: переменная, представляющая объект Application.
Примечания
Каждой коллекции шаблонов (маркированных, нумерованных и нумерованных в структуре) соответствует вкладка в диалоговом окне "Маркеры и нумерация " (меню "Формат "). Сведения о возврате одного члена семейства см. в разделе Возврат объекта из семейства.
Пример
В этом примере переменная mylsttmp задается в качестве второго шаблона списка на вкладке "Нумерованная структура " диалогового окна "Маркеры и нумерация ". Затем в примере этот шаблон применяется к первому списку в активном документе.
Set mylsttmp = _
ListGalleries(wdOutlineNumberGallery).ListTemplates(2)
ActiveDocument.Lists(1).ApplyListTemplate ListTemplate:=mylsttmp
В этом примере циклически перебирается коллекция ListGalleries и изменяется шаблоны в каждой коллекции шаблонов списков обратно на встроенный шаблон.
For Each listgal In ListGalleries
For i = 1 To 7
listgal.Reset(i)
Next i
Next listgal
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.