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