Свойство Document.Lists (Word)

Возвращает коллекцию Lists , содержащую все отформатированные списки в указанном документе. Только для чтения.

Синтаксис

выражение. Lists

выражение Переменная, представляющая объект Document .

Замечания

Сведения о возврате одного члена коллекции см. в разделе Возвращение объекта из коллекции.

Пример

В этом примере выделение форматируется как нумерованный список. Затем в примере отображается окно сообщения, в котором сообщается количество списков в активном документе.

Selection.Range.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(2) 
MsgBox "This document has " & ActiveDocument.Lists.Count _ 
 & " lists."

В этом примере третий список в активном документе форматируется в формате маркированного списка по умолчанию. Если список уже отформатирован в формате маркированного списка, в примере форматирование удаляется.

If ActiveDocument.Lists.Count >= 3 Then 
 ActiveDocument.Lists(3).Range.ListFormat.ApplyBulletDefault 
End If

В этом примере отображается окно сообщения с количеством элементов в каждом списке в MyLetter.doc.

Set myDoc = Documents("MyLetter.doc") 
i = myDoc.Lists.Count 
For each li in myDoc.Lists 
 Msgbox "List " & i & " has " & li.CountNumberedItems _ 
 & " items." 
 i = i - 1 
Next li

См. также

Объект Document

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.