Если в документе Microsoft* Word существует хотя бы один список, он окажется в коллекции списков - объекте ILists (см. табл. 25.1). Отдельный элемент названной коллекции описывается интерфейсом Ilist; это просто список. В коллекции ILists реализован метод, возвращающий конкретный интерфейс конкретного списка по его индексу:

function Item (Index : Integer) : IList;

Как всегда общее количество элементов в коллекции выясняется из свойства Count:

property Count : Integer;

Например:

var Word, Doc, List : OleVariant; begin

Doc:=Word.Documents.Open('c:\test.doc');

if Doc.Lists.Count>0 then List:=Doc.Lists.Item(1);

end;

Мы научились получать доступ к отдельному списку IList. Теперь познакомимся с возможностями списка. Для того чтобы узнать, сколько пунктов содержится в списке, используйте метод:

function CountNumberedIteMicrosoft : Integer;

Как и большинство объектов Microsoft* Word, список может возвратить свою область Range:

property Range : IRange;

Каждый отдельный пункт списка (абзац) хранится в коллекции абзацев -всвойстве:

property ListParagraphs : IListParagraphs:

В свою очередь в качестве отдельного элемента коллекции IListParagraphs выступает объект IParagraph. В следующем листинге продемонстрирован способ вставки в список нового элемента.

var ...,Doc, List, Range : OleVariant;

List:=Doc.Lists.Item(1); if List.CountNumberedIteMicrosoft>=2 then begin

Range:=List.ListParagraphs.Item(2).Range; Range.InsertParagraphAfter; Range:=List.ListParagraphs.Item(3).Range; Range.InsertBefore('Трeтий элемент списка'); end;

Мы обращаемся к самому первому списку в документе и, если в нем два (или более) элементов, вставляем третий элемент и заполняем его текстом.