Метод ListFormat.ApplyListTemplate (Word)
Применяет набор характеристик форматирования списка к указанному объекту ListFormat .
Синтаксис
выражение. ApplyListTemplate( _ListTemplate_ , _ContinuePreviousList_ , _ApplyTo_ , _DefaultListBehavior_ )
выражение (обязательно). Переменная, представляющая объект ListFormat.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| ListTemplate | Обязательный | ListTemplate | Применяемый шаблон списка. |
| ContinuePreviousList | Необязательный | Variant | Значение true , чтобы продолжить нумеровку из предыдущего списка; Значение False для запуска нового списка. |
| ApplyTo | Необязательный | Variant | Часть списка, к которому будет применен шаблон списка. Может быть одной из следующих констант WdListApplyTo : wdListSelection, wdListWholeList или wdListThisPointForward. |
| DefaultListBehavior | Необязательный | Variant | Задает значение, указывающее, использует ли Microsoft Word новое веб-ориентированное форматирование для лучшего отображения списка. Может быть любой из следующих констант WdDefaultListBehavior : wdWord8ListBehavior (использовать форматирование, совместимое с Microsoft Word 97) или wdWord9ListBehavior (используйте веб-форматирование). Для обеспечения совместимости константой по умолчанию является wdWord8ListBehavior, но в новых процедурах следует использовать wdWord9ListBehavior , чтобы воспользоваться преимуществами улучшенного веб-ориентированного форматирования в отношении отступов и многоуровневых списков. |
Пример
В этом примере переменная 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 и обратная связь.