Метод List.ApplyListTemplateWithLevel (Word)
Применяет набор характеристик форматирования списка, при необходимости для указанного уровня.
Синтаксис
выражение. ApplyListTemplateWithLevel( _ListTemplate_ , _ContinuePreviousList_ , _DefaultListBehavior_ , _ApplyLevel_ )
Выражение Переменная, представляющая объект List.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| ListTemplate | Обязательный | ListTemplate | Применяемый шаблон списка. |
| ContinuePreviousList | Необязательный | Variant | Значение true , чтобы продолжить нумеровку из предыдущего списка; Значение False для запуска нового списка. |
| DefaultListBehavior | Необязательный | Variant | Задает значение, указывающее, использует ли Microsoft Word новое веб-ориентированное форматирование для лучшего отображения списка. Может быть любой из следующих констант WdDefaultListBehavior : wdWord8ListBehavior (использовать форматирование, совместимое с Microsoft Word 97) или wdWord9ListBehavior (используйте веб-форматирование). Для обеспечения совместимости константой по умолчанию является wdWord8ListBehavior, но в новых процедурах следует использовать wdWord9ListBehavior , чтобы воспользоваться преимуществами улучшенного веб-ориентированного форматирования для отступов и многоуровневых списков. |
| ApplyLevel | Необязательный | Variant | Уровень, к которому должен применяться шаблон списка. |
Пример
В следующем примере для переменной myRange задается диапазон в активном документе, а затем проверяется, имеет ли диапазон форматирование списка. Если форматирование списка не было применено, к диапазону применяется четвертый шаблон списка с номером структуры.
Set myDoc = ActiveDocument
Set myRange = myDoc.Range( _
Start:= myDoc.Paragraphs(3).Range.Start, _
End:=myDoc.Paragraphs(6).Range.End)
If myRange.ListFormat.ListType = wdListNoNumbering Then
myRange.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdOutlineNumberGallery) _
.ListTemplates(4)
End If
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.