Объект ListTemplates (Word)
Коллекция объектов ListTemplate в документе , коллекции списков или шаблоне.
Замечания
Используйте свойство ListTemplates с объектом Document, ListGallery или Template , чтобы вернуть коллекцию ListTemplates . При использовании объекта ListGallery коллекция ListTemplates представляет собой семь форматов списков для маркированных, нумеруемых списков и структурных нумерованных списков.
В следующем примере отображается сообщение с состоянием уровня (один или несколько уровней) для каждого шаблона списка в активном документе.
For Each lt In ActiveDocument.ListTemplates
MsgBox "This is a multiple-level list template - " _
& lt.OutlineNumbered
Next lt
Используйте метод Add , чтобы добавить шаблон списка в коллекцию в указанном документе или шаблоне. В следующем примере новый шаблон списка добавляется к активному документу и применяется к выделенному фрагменту.
Set myLT = ActiveDocument.ListTemplates.Add
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=myLT
Используйте ListTemplates (Index), где Индекс — это имя шаблона списка или номер индекса, чтобы вернуть один шаблон списка в документе или шаблоне. В следующем примере задается переменная объекта, равная шаблону списка ListBullets, в активном документе, а затем форматирует выделение в качестве первого уровня этого шаблона списка.
Set mylt = ActiveDocument.ListTemplates("ListBullets")
Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:=mylt, ApplyLevel:=1
Используйте ListTemplates (Index), где индекс — это число от 1 до 7, чтобы вернуть один шаблон списка в коллекции списков. В следующем примере задается объектная переменная, равная первому шаблону списка в коллекции маркированных списков, а затем применяется этот шаблон списка к выделенному фрагменту.
Set mylt = ListGalleries(wdBulletGallery).ListTemplates(1)
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=mylt
Примечание.
Некоторые свойства и методы, например Convert и Add, не будут работать с шаблонами списка в коллекции списков. Вы можете изменить эти шаблоны списков, но не можете изменить их тип коллекции списков (wdBulletGallery, wdNumberGallery или wdOutlineNumberGallery).
Чтобы узнать, содержит ли шаблон списка в коллекции списков форматирование, встроенное в Word, используйте свойство Modified с объектом ListGallery . Чтобы сбросить форматирование в исходный формат списка, используйте метод Reset для объекта ListGallery .
После возврата объекта ListTemplate используйте ListLevels (Index), где Index — это число от 1 до 9, чтобы вернуть один объект ListLevel . Объект ListLevel предоставляет доступ ко всем свойствам форматирования для указанного уровня списка, таким как Выравнивание, Шрифт, NumberFormat, NumberPosition, NumberStyle и TrailingCharacter.
Используйте метод Convert для преобразования многоуровневого шаблона списка в одноуровневый шаблон.
См. также
Справочник по объектной модели Word
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.