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