Доброго Вам времени суток
Уважаемые господа

при наличии времени прошу Вас помочь

искал в интернет пример работы со списками, не нашел (возможно не там искал)

есть файл Word с такой структурой

1. Test1 ?
otvet1

2. Test2 ?
otvet2

и т.д.

вот так можно выбелить нужный номер нумерованного списка

ActiveDocument.Paragraphs(2).SelectNumber

а как получить в переменную текст выбранного списка и его подтекст

т.е.
переменная1 = Test2 ?
переменная2 = otvet2

С Уважением
Намик

нашел

вопрос закрыт

kolvospiska = ActiveDocument.ListParagraphs.Count

For i = 1 To kolvospiska

textstroki = ActiveDocument.Paragraphs(i).Range
slovo1 = Split(textstroki, Chr(11))(UBound(Split(textstroki, "")))
slovo = Split(textstroki, Chr(11))(UBound(Split(textstroki, "?")))

MsgBox slovo1
MsgBox slovo

С Уважением
Намик