Доброго Вам времени суток
Уважаемые господа
при наличии времени прошу Вас помочь
есть файл Word с такой структурой
1) Вопрос теста Chr(11))
A) Ответ 1 Chr(11)
B) Ответ 2 Chr(11)
C) Ответ 3 Chr(11)
D) Ответ 4 Chr(11)
E) Ответ 5 Chr(11)
вот таким кодом я разбиваю всю конструкцию и получаю в переменные отдельные строки
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Dim s As String
Dim a() As String
kolvospiska = ActiveDocument.ListParagraphs.Count
i = i + 1
If i > 23 Then
MsgBox "Конец"
Else
s = ActiveDocument.ListParagraphs(i).Range
a = Split(s, Chr( 11 ))
l1.Caption = a( 0 ) ' Вопрос теста
l2.Caption = a( 1 ) ' Ответ 1
l3.Caption = a( 2 ) ' Ответ 2
l4.Caption = a( 3 ) ' Ответ 3
l5.Caption = a( 4 ) ' Ответ 4
l6.Caption = a( 5 ) ' Ответ 5
End If
как видно из кода ограничителем Split является Chr(11)
подскажите пожалуйста как изменить этот код так
чтобы в первую переменную садились данные находящиеся между "1)" и Chr(11)
во вторую переменную данные находящиеся между "A)" и "B)"
в третью ... между "B)" и "C)"
в четвертую ... между "C)" и "D)"
в пятую ... между "D)" и "E)"
в шестую ... между "E)" и Chr(11)
С Уважением
Намик
