Макрос для импорта или копирования из Word

[barbus]

Помогите написать макрос для импорта или копирования из Word

Задача такова.
Есть база решенных тестовых вопросов в документе Word (картинки прикрепляю)
Надо чтобы макрос перенес эти тестовые вопросы и ответы в документ Excel.
При этом есть условие, что вопросы и ответы помешались в диапазоне А:А,а в диапазоне В:В пред строкой вопроса стоял номер правильного ответа.
Каждый вопрос может иметь 5 ответов, что означает что после вопроса занят еще пять ячеек и еще одна пустая,после идет другой вопрос с ответамы и еще одна пустая ячейка.

Макрос должен из документа Word распознать правильный ответ и номер ответа вставить в калонке В:В пред каждым вопросом вставлять номер правильного ответа. В Word-е они отмечены, в документе есть заголовки в голубом шрифте они не нужны.


Р.С. (база на армянском и по этому прилагаю картинки с объяснениями)

[doober]

Предупреждаю сразу,макрос очень медленный
Количество вопросов разное то 4 то 5.
Название билета не всегда жирный шрифт-это приводит к ошибке.Проверял-есть такие варианты.
Но лучше медленно.чем 5 тыс вопросов руками обработать.
в диалоге выберете нужный файл Ворд.В статус баре отображается ход обработки

[barbus]

Спасибо огромное, все хорошо, есть вопросы.
Как макрос /какой код/ распознает правильный ответ, по цвету выделения?
Имеет значения цвет скажем зеленый или другой?
То что медленно не мешает.

Еще раз спасибо.

[doober]

For n = 1 To .Paragraphs.Count
 gg = .Paragraphs(n).Range.Font.ColorIndex
If gg = 2 Then' если строка синего цвета пропускаем ее
Else

rez(n, 1) = Replace(.Paragraphs(n).Range.Text, Chr(13), "")
If .Paragraphs(n).Range.Font.Bold = True Then 'если строка имеет жирный шрифт-это название билета
shet = 0
 Else
 shet = shet + 1
 End If
 If .Paragraphs(n).Range.Words.First.FormattedText.HighlightColorIndex <> 0 Then' если первое слово выделено цветом то это ответ
 rez(n - shet, 2) = shet
 End If

End If
DoEvents
Application.StatusBar = n & " of " & UBound(rez)

Next

[barbus]

Спасибо за разъяснения.
Есть маленькие ошибки.Помогите исправить.

1. Ответ надо поставить на над названием билета а на одну строку вниз, перед вопросом.
2. Есть вопросы в которых есть варианты ответов
а) или 1)
б) или 2)
ц) или 3)

а),б),ц) или 1),2),3) это продолжение вопроса
и есть ответы в виде: правильный ответ вариант
ä²î. 1 а)
ä²î. 2 а) и б)
ä²î. 3 а) и ц),
ä²î. 4 ц):

Есть такое решение перед каждым ответом есть слово "ответ 1." (на армянском (ä²î. 1)) и макрос если видит слово будет считать его ответом.
Возможно так, или неправильное решение.
В таком случае все что находится в промежутке после названия билета до ответов это вопрос, и оно должно быть в одной строке Excel, чтобы счет строк был правильным.

Как я понял из макроса он каждую строку Word-a копирует в Excel в соответствующую строку.
Правильно я понял.

Еще раз спасибо за помощь.