Метод ListFormat.ApplyOutlineNumberDefault (Word)
Добавляет схему нумерации структуры по умолчанию в абзацы в диапазоне для указанного объекта ListFormat .
Синтаксис
выражение. ApplyOutlineNumberDefault( _DefaultListBehavior_ )
выражение (обязательно). Переменная, представляющая объект ListFormat.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| DefaultListBehavior | Необязательный | Variant | Задает значение, указывающее, использует ли Microsoft Word новое веб-ориентированное форматирование для лучшего отображения списка. Может быть любой из следующих констант: wdWord8ListBehavior (использовать форматирование, совместимое с Microsoft Word 97) или wdWord9ListBehavior (использовать веб-форматирование). Для обеспечения совместимости константой по умолчанию является wdWord8ListBehavior, но в новых процедурах следует использовать wdWord9ListBehavior , чтобы воспользоваться преимуществами улучшенного веб-ориентированного форматирования в отношении отступов и многоуровневых списков. |
Замечания
Если абзацы уже отформатированы в виде списка с номером структуры, этот метод удаляет числа и форматирование. Этот метод не удаляет встроенные стили заголовков, примененные к абзацам.
Пример
В этом примере к абзацам в выделенном фрагменте добавляется нумерацию структуры. Если выделенный список уже является списком с номером структуры, в примере будут удалены числа и форматирование.
Selection.Range.ListFormat.ApplyOutlineNumberDefault
В этом примере переменная myRange включает абзацы с 3 по шесть активного документа, а затем проверяет, содержит ли диапазон форматирование списка. Если форматирование списка отсутствует, применяется формат списка с номером структуры по умолчанию.
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.ApplyOutlineNumberDefault
End If
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.